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Editorial 



A dos semanas escasas de la inau- 
guración de SONIMAG'86, aún 
prosigue la incomprensible proli- 
feración de diferentes estándares 
que dicen venir dispuestos a co- 
merse el mundo. Cierta prestigio- 
sa marca que en la pasada edición 
de esta feria, haciendo alarde de 
fuerza y promesas de continuidad, 
se presentaba como un serio rival 
de la norma MSX ha tenido que 
plegar velas y "asociarse" con otra 
de cuya escasa fiabilidad en el 
aspecto de la compatibilidad ya 
nadie puede dudar. Todo ello nos 
hace reflexionar una vez más so- 
bre las falsas profecías de ciertos 
sectores, una prensa decididamen- 
te adversa al MSX, que auguraban 
una corta vida a nuestro estándar. 
Sepan pues de una vez que la ra- 
cionalidad del MSX ha sido el me- 
jor argumento que ha decidido a 
miles de usuarios y que ahora es el 
momento de reflexionar sobre 
aquel viejo refrán que reza "aun- 
que la mona se vista de seda, mona 
se queda", porque refritando mo- 
delos, adaptando carcasas y todo 
tipo de apaños por el estilo no se 
consigue ganar credibilidad. Bue- 
no, tal vez algún despistado de 
buena fe se deje cautivar por las 
promesas de esos estándares de 
cuya obsolescencia no cabe la me- 
nor duda. Y eso es una lástima 
pues antes de comprar hay que 
informarse a riesgo de no quedar- 
se con una máquina que al poco se 
convierta en chatarra informática. 
Después de tanto tiempo en el 
mercado, lo que ya es indiscutible 
es que quien ha adquirido MSX 
no va a encontrarse en tan lamen- 
table situación. 

MANHATTAN TRANSFER 



NOTA: Debido a las vacaciones de vera- 
no se han producido ciertos retrasos en el 
envío de números atrasados. Rogamos a 
nuestros amigos lectores sepan disculpar 
esta situación anómala que, podemos afir- 
mar, ya está totalmente regularizada. 
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Línea directa 
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Esta sección no puede con- 
vertirse en algo insulso y re- 
petitivo en la que, una y otra 
vez, se den respuesta a las 
mismas preguntas. Tampoco 
es posible seguir contestan- 
do cuestiones que puedan 
solventarse consultando los 
manuales de los distintos fa- 
bricantes. A estas alturas, 
necesitamos vuestra colabo- 
ración y os rogamos que re- 
mitáis preguntas en torno e 
temas novedosos y que re- 
sulten, en lo posible, amenas 
para el resto de los lectores. 
Dicho esto, es conveniente 
zanjar definitivamente las 
cuestiones que con más fre- 
cuencia han ido apareciendo 
en esta redacción. Salvando 
el popularísimo "cómo se 
usa el test de listados" hay 
cuatro dudas que pueden ser 
calificadas como "eternas": 

1- Problemas de memoria 

2- Copias de seguridad 

3- Protección de programas 

4- Copias de la pantalla en el 
papel. 



PROBLEMAS DE MEMORIA 

Esta pregunta suelen hacerla 
usuarios de ordenadores de 



TEMAS DE INTERES GENERAL 



J 




menores de 64K. En síntesis, 
desean saber si hay progra- 
mas que requieren más me- 
moria y si existen periféricos 
que no se pueden conectar 
por el mismo defecto. 
En principio, y dado que 
realmente existen programas 
que necesitan más de 32K, 
puede resultar aconsejable 
adquirir un cartucho de am- 
pliación. No obstante, se en- 



cuentran mucho programas 
en el mercado que, al no res- 
petar las normas del es- 
tándar, están completamente 
incargables en los ordenado- 
res ampliados. Debemos ha- 
cer hincapié que esto no 
obedece en absoluto a un de- 
fecto de los cartuchos, sino 
de los programas. 
En cuanto a la cantidad de 
memoria que necesitan los 



periféricos, diremos que son 
los programas, y no éstos, 
quienes la determinan. Así, 
es perfectamente posible co- 
nectar a un ordenador de 
menos de 64K un joystick, 
una tableta gráfica, un lápiz 
óptico, una unidad de dis- 
cos, una impresora, etc. El 
único detalle importante es 
tener presente que el perifé- 
rico no necesite ser controla- 
do por un programa mayor 
de 32K; aunque esto sólo 
ocurre, en principio, con las 
unidades de discos. Y es que 
el MSX/DOS —que no es 
más que un programa — de- 
saloja la ROM e intenta ins- 
talarse en la RAM no accesi- 
ble al BASIC. Puesto que los 
ordenadores de 16 ó 32K no 
tiene esta RAM, el programa 
no corre. Sin embargo, es 
perfectamente yiable usar 
una unidad de discos en un 
ordenador de menos de 64K, 
si se emplea el MSX DISC 
BASIC, sistema que permite 
grabar programas y ficheros 
en cualquier formato y utili- 
zando cualquier modo de 
acceso (secuencial o aleato- 
rio). 



SUSCRIBETE A 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX ( !LUB DE PROGRAMAS en tu casa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



Nombre y apellidos 

Calle N o 

Ciudad Provincia 

D. Postal Teléfono 



Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del núrhero .. 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/ Roca i Batlle, 10-12 - 08Ó23 Barcelona 

Tarifas: España por correo normal Ptas. 1.750, — 

Europa por correo normal Ptas. 2.000, — 

Europa por correo aéreo Ptas. 2.500, — 

América por correo aéreo USA$ 25USA$ 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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COPIAS DE SEGURIDAD 

El tema de las copias de se- 
guridad es, como mínimo, 
muy delicado. Día a día se 
extiende la opinión de que 
los usuarios legales tienen 
derecho a todas las copias de 
seguridad que deseen. En los 
EEUU, como país pionero 
en la informática, se tiende, 
desde hace algún tiempo, a 
entregar los programas no 
protegidos, mientras en Eu- 
ropa las versiones corres- 
pondientes sí lo están. No 
entraremos ahora en polémi- 
ca de lo que es o no justo, 
pero en tanto se sigan ven- 
diendo programas protegi- 
dos, las copias de seguridad 
habrá que obtenerlas saltan- 
do la correspondiente defen- 
sa, lo que significa tener 
buenos conocimientos de 
programación. 
Lo que no nos parece serio 
es que haya usuarios que nos 
manden cartas preguntando 
sobre cómo obtener copias 
"de seguridad" de los cartu- 
chos ROM. Incluso hemos 
recibido alguna carta para el 
tablón de anuncios que ofre- 
cen, descaradamente, exten- 
sos catálogos de programas 
piratas a precios de oferta. 



PROTECCION DE 
PROGRAMAS 

Parece que hay un gran inte- 
rés por conocer la forma de 
proteger programas. Para 
solventar cíe una vez por to- 
das el tema, es conveniente 
señalar que hay tantas for- 
mas de protección como se 
quieran, pero encontrar una 
buena requiere, cómo no, 
sólidos conocimientos. Sin 
que nadie resulte aludido ni 
ofendido, diremos que muy 
probablemente un programa 
no merecerá ser protegido si 
su autor no sabe encontrar, 
por sí mismo, un sistema 
anticopia adecuado. Por otra 
parte, en estas páginas segui- 
rán apareciendo sistemas de 
protección, que si bien no 
serán de mucha utilidad co- 
mo tales por su difusión, re- 
sultarán un buen medio para 
profundizar en las interiori- 
dades del ordenador. 



COPIAS DE PANTALLA EN EL 
PAPEL 

Han llegado hasta esta re- 
dacción bastantes cartas 
quejándose del mal funcio- 
namiento de los programas 
de copia de pantalla de Ru- 
bén Giménez. La mayoría 
de estos lectores dicen tener 
impresoras de modelos no 
MSX (Seikosha, sobre todo). 
Resulta evidente que estos 
programas, por otra parte 
perfectos, no pueden funcio- 
nar en las referidas impreso- 
ras sin hacer la adaptación de 
los códigos de impresión. 
De cualquier manera, vamos 
a editar, de forma inminente, 
una cinta conteniendo un 
programa de Hard-copy, ca- 
paz de hacer copias en varios 
tamaños y posiciones y de 
efectuar un degradado de 
grises, dando así la sensación 
de estar ante una fotografía. 
Posee, además, la capacidad 
de copiar los SPRITES, de 
hacer copias inversas, de 
almacenar las pantallas de 
cintas, etc. El programa po- 
drá ser utilizado en cual- 
quier tipo de impresora, con 
el solo requisito de que ésta 
sea matricial. 



REDONDEO 

Os mando esta rutina para 
redondear números, con los 
decimales prefijados que se 
deseen. Confío en que será 
de ayuda a algunos lectores. 
Carlos González Luñás 
Málaga 

Agradecemos tu colabora- 
ción, pero hay una forma 
más corta de redondear los 
decimales, empleando una 
función INT. Se trata de 
multiplicar el número en 
cuestión por diez elevado a 
las cifras del redondeo, apli- 
car INT y dividir el resulta- 
do por el mismo parámetro. 
A título de ejemplo, para li- 
mitar a dos los decimales del 
número PI se debe emplear: 
10 PI =3. 141592 
20 PI=INT(PI*100)/100 
Al ejecutar la línea 20 y al 
comprobar el valor de PI 
observarás que éste ha pasa- 
do a ser de 3.14 




CAZA PIRATAS 



Fomenta la creatividad. Respeta el dere- 
cho de autor. Centenario de la conven- 
ción de Berna 1886-1986. 



Condiciones: 

Toda denuncia para esta sección deberá venir suscripta con 
los datos personales del denunciante, aunque su nombre no 
aparecerá publicado. 

— Deberá aportarse toda documentación que acredite el 
objeto de la denuncia, de lo contrario no se tendrá en cuenta. 

— La documentación recibida se hará llegar a la marca afec- 
tada para que tome las medidas jurídicas oportunas. 

— Una vez publicada la denuncia, ya no se tendrán en cuen- 
ta las que lleguen posteriormente sobre el mismo programa. 

— Los denunciantes recibirán como recompensa el progra- 
ma original denunciado. 

— Recordamos que se considera piratería la desprotección y 
copia de programas en cualquier formato y su uso con fines 
de lucro. 









Phantasma, editado y comerciali- 
zado por LOAD'N'RUN MSX, es 
una copia del juego original CHI- 
LLER editado en cassette por 
MASTERTRONIC. 




1. °- Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. °- Los programas se clasificarán en tres cate- 
gorías: 

Educativos 
Gestión 

Entretenimiento 

3. °- Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, den- 
tro de su estuche de plástico. 

4. °- No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros 
medios o plagiados. 

5. °- Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de.Ias varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. °- Todos los programas han de estar estruc- 
turados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7. °- MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: 

JOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL ANO 

Además mensualmente se premiarán los pro- 
gramas publicados del siguiente modo: 

10.000 pts. los programas Educativos 

10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

8. °- MSX CLUB DE PROGRAMAS se reser- 
va el derecho de publicar fuera de concurso 
aquellos programas de reducidas dimensiones 
que sean de interés, premiando a sus autores. 

FALLO Y JURADO 

9. °- El Departamento de Programación de 
MSX CLUB DE PROGRAMAS hará la primen 
selección de la que saldrán los programas publi 
cados en cada número de la revista. 

10. °- Los programas no se devolverán salvo que 
así lo requiera el autor. 

1 1 . °- La elección del PROGRAMA DEL AÑO 
se hará por votación de nuestros lectores a través 
de un boletín que se publicará en el mes de octu- 
bre de 1986. 

12. °- El plazo de entrega de los programas finali- 
zará el 3 1 de octubre de 1986. 

13. °- El fallo se hará conocer en el número de di- 
ciembre de 1986, entregándose los premios en el 
mismo mes. 




Remitir a: I jggg/fgg^] - MI PROGRAMA 
Roca i Batlle, 10- 12, bajos 0802 3 Barcelona 
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Línea directa 






BIBLIOTECA 



El programa Biblioteca del 
número 14 de MSX-CLUB 
me es de mucha utilidad co- 
mo archivo. A la variable 
BC&(A) le he asignado una 
cadena numérica y con la 
función 

BC(A) = VAL(BC&(A)) 
obtengo su valor numérico 
pero no consigo hallar las 
sentencias para que me dé el 
valor total de la suma de to- 
dos los BC(A) desde A=0 
hasta C. Si me podéis dar 
una ayuda os lo agradeceré 
mucho. 

Daniel González Rosich 
Barcelona 

Para obtener la suma puedes 
emplear una línea como ésta: 
10 FORX=0TOC:SUMA 
=SUMA + BC(A):NEXT 



ESPIRAL 



¿Sabéis de algún programa 
que pueda dibujar una espi- 
ral? Gracias de antemano. 
Rosa M. Riverol Pérez 
La Laguna (Tenerife) 

Puedes obtener una espiral 
moviendo un punto con ve- 
locidad uniforme sobre un 
radio vector que a su vez se 
mueve con velocidad angu- 
lar uniforme. La figura re- 
sultante recibe el nombre de 
espiral de Arquímedes y su 
ecuación, en coordenadas po- 
lares, es: p—Kw. Las siguien- 
tes líneas dibujan la curva: 
10 SCREEN2:PI=3, 141592 
20 PSET(SIN(B)*R + 128 



,COS(B)*R + 96) 
30 

R=R + .2:B=B+.lGOTO- 
20 

Para alterar el paso de la es- 
piral o el número de punto a 
trazar deberás jugar con los 
valores de B y R. Por otra 
parte, si lo que desea es re- 
presentar una espiral logarít- 
mica has de tener presente 
que ecuación en: p=e'KW 



CALCULO 

Tengo un PHILIPS MSX de 
80K y en mis cálculos aplica- 
dos a ingeniería me encuen- 
tro corto de memoria. De- 
searía que me iníormárais de 
los medios que hay para au- 
mentarla. 

José María García Giménez 
L'Hospitalet (Barcelona) 

No hay buen sistema para 
aumentar la memoria, la so- 
lución es aprovecharla me- 
jor. Sin embargo, resulta 
muy extraño que un progra- 
ma de cálculo ocupe la exten- 
sión que tú dices, hay que te- 
ner presente que un progra- 
mador profesional que tra- 
bajara en ASSEMBLER po- 
dría tardar años en realizar 
un programa matemáti- 
co de 64 K (un juego de aje- 
drez, por ejemplo), por lo 
cual deduzco que estás em- 
pleando el BASIC. Desde 
luego éste es el peor lenguaje 
que puedes usar. Para los fi- 
nes que persigues, te aconsejo 
que adquieras un lenguaje 
compilado (Assembler, Pas- 
cal o C, entre otros), que a su 
mayor rapidez suelen añadir 
un menor gasto de memoria. 
En fin, por si te sirve de al- 
guna ayuda te diré que ha- 
ciendo MAXEILES=0 se 
ahorran 267 bytes, aunque la 
instrucción OPEN quedará 
inutilizada; que al progra- 
mar en SCREEN 0 pueden 
usarse 13 K de video, de los 
16K disponibles, para guar- 
dar datos; y que la zona de 
trabajo del PSG es suscepti- 
ble de emplearse para alma- 
cenar información, cuando 
no hay música escrita para él. 



UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN L, Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 
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Deseo me envíen el libro de los secretos i 
cual adjunto talón de 1.500 ptas. a la 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle 

Ciudad 

Este boletín me da derecho a recibir los 
mi domicilio libre de gastos de envío 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN ¡ 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 



del MSX, para lo 
orden de MAN- 



n.° 

CP 

secretos MSX en 
o cualquier otro 



Tablón de anuncios 




Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las 
características de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y 
copia de software original es un acto delictivo perseguido por la ley. 



Intercambio programas comer- 
ciales en cassette por otros co- 
merciales de ARTES MARCIA- 
LES y SIMULADORES DE 
VUELO. Llamad o escribid a: 
Carlos Alberto Marín. C/. S. 
Francisco 48, 9005 Bureos. (943) 
213 065. CP1. 

Vendo y cambio toda clase de 
programas MSX. Más de 100 pro- 
gramas comerciales. Teófilo Fer- 
nández (965) 806 236 excepto 
martes y Ricardo Pérez (965) 
800 282 Villena (Alicante). CPl. 
Intercambio de programas Po- 
leo más de 200 títulos. Carlos 
Deludo, C/. Pablo Ruiz Picasso, 
12. 50015 Zaragoza. CPl. 
Mándame una cinta con tus jue- 
gos y te la devuelvo con los míos. 
Si te interesa el cambio mándalo a 
Juan José Ritorc. C/. García de 
Paredes, 19. Badajoz 06006. Tel. 
237 687. Prometo contestar a to- 
das las cartas. CPl. 
Intercambio programas de todo 
tipo con usuarios de Barcelona. 
Poseo de los mejores. Alfons 
Elíes. C/. S. Eusebi, 8-10, 3/' 2. J . 
Tel. Í93) 218 12 44. CPl. 
Vendo urgentemente Spectravi- 
deo 318 con manual en castellano, 
cables, adaptador con ON/OFF 
de seeuridad y DATA CASSET- 
TE Sv-904 con muchos progra- 
mas de regalo por 30.000 ptas. ne- 
gociables. Escribir a Luis Docal 
Pombo. C/. Manuel del Palacio, 
16, 36003 Pontevedra o llamar al 
(986) 859 579. CPl. 
Vendo ordenador SONY HIT 
BIT 101 P, 6 revistas del MSX, 7 
cintas con 44 juegos y utilidades y 
2 libros de introducción al MSX 
TODO ELLO POR TAN SO- 
LO 50.000 ptas. (Especialmente 
con gente de Altea o alrededores}. 
José Andrés Coreóles. Conde cíe 
Altea, 53, Esc. B, 2. CPl. 
Vendo o intercambio juegos de 
todas clases. Poseo más de 100 tí- 
tulos. Interesados pfeguntar por 
Manolo al Tel. (954) 632 194 de 
Sevilla. CPl. 

Intercambio programas de MSX 
en toda España. Poseo los mejo- 
res títulos del mercado. Llamar a 
José al Tel. (981) 200842 o bien 
escribir a: Club GOTO Coruña. 
C/. Forcarey, 39, 1.', 15002 La 
Coruña. CPl. 

Urgente. Necesito información o 
clases sobre Assembler y Código 
Máquina. Pagaría por las clases; 
es muy importante. Escribir a 
Daniel Arias Llórente. C/. Peña 
Larzón, n.° 55. León 24008. CPl. 
Contacto conmigo si vives en 
Baracaldo. Poseo un MSX y quie- 
ro intercambio juegos. También 
deseo comprar (o cambiar) el n." 7 
de MSX CLUB. José Miguel. 
Llamar laborales de 15 a 17 h. al 
Tel. 438 32 22. C/. Errekatxu, n." 



17, 2.*' D. Barakaldo. Bizkaia. 
CPl. 

Apúntate al Coub CMIP. Es co- 
mo un Video Club, sólo que con 
programas para tu ordenador. 
Envíanos 300 ptas. y tu dirección 
y recibirás una cassette con un 
programa de regalo y cada mes 
una cassette y concursos. Infor- 
mación: Antonio J. García Martí- 
nez. Camino de Ronda, 38, 1." D 
(Granada). 18004. CPl. 
Intercambio más de 60 progra- 
mas comerciales. También cartu- 
chos ROM (BILLAR, GOL F, 
etc.) o vendería a 2.900. Contes- 
taré a todos rápido. MIGUEL A. 
M. EMALDI. Labairu, n. 11-2." 
izo. BARACALDO. 48000 VIZ- 
CAYA. CPl. 

Cambio/vendo programas para 
MSX. Mándame una lista de tus 
programas. Teléfono (976) 
432 671 o escribe a Alejandro Es- 
corihuela Laborda. P." M." Agus- 
tín, 58, 11-F. 50004 Zaragoza. 
CPl. 

Intercambio programas. 100 de 
los mejores Envía tu lista a César 
Garrote vicente. C/. Bolívar, 33, 
V A. 37004 SALAMANCA. 
CPl. 

Cambio, compro y vendo pro- 
gramas MSX en cassette y cíisco 
de 3"5", amplio surtido en progra- 
mas de juegos, educativos y ges- 
tión. Contestaré a todos pronto. 
Escribid o llamad a Ricardo Rei- 
nares. C/. Gran Vía, 56. 26002 
Logroño. Tel. (941) 223 157. 
CPl. 

Intercambio programas MSX. 
Envíame tus programas en una 
cinta v en poco tiempo la recibi- 
rás con los míos. Poseo gran va- 
riedad y de los buenos. Javier Sa- 
la. C/. Les Corts, 52, 3." 4. J . 08028 
Barcelona. Tel. (93) 330 97 71. 
CPl. 

Para SVI 328. Deseo contactar 
con usuarios interesados o que 
posean software para la transmi- 
sión y recepción para la transmi- 
sión y recepción de CW-RTTY. 
Estoy muy interesado y pagaría 
software y gastos. Escribir al 
apartado 111 de Esparraguera. 
CP 08292 Barcelona EA3 - ENT. 
CPl. 

Cambio/vendo programas para 
MSX. Teneo los mejores en cali- 
dad y rapidez. Pide lista a Miguel 
Moreno. C/. Cataluña, 48, 3." 2. J . 
El Prat de Llobregat. CPl. 
Intercambio juegos de MSX. 
Preguntar por Jordi. Tel. (93) 
211 87 15. C/. Betania, 11, 4." 2.' 
(Barcelona). CPl. 
Intercambio programas. Mánda- 
me a una cinta cargada y recibirás 
otra grabada con otros distintos. 
Jesús Zamora Rodríguez. Avda. 
de Colón, portal D, 3." F. ALBO- 
LOTE (Granada). CPl. 



Intercambio juegos para MSX. 
Poseo más de 80 títulos, entre 
ellos gran cantidad de programas 
formato cartucho para* cassette 
como los de KONAMI. Llamar 
al n.' (983) 39-30-87 o escribir a 
C/. Acibcías, n. 15, 6." derecha 
(47004 Valladolid). Preguntar por 
Luis. Prometo contestar a todos. 
CPl. 

Intercambio programas MSX. 
Primeros títulos del mercado. 
Club Orippo. C/. Cristo de la 
Vera, 36. Dos Hermanas (Sevilla). 
CPl. 

Escríbenos: SADA club MSX. 
Todo tipo de software. Cursos de 
BASIC avanzado, trucos, etc. 
Infórmate sin compromiso. Se 
contesta rápido y a todos. Diri- 
girse a Santo Arias. C/. Peña Lar- 
zón. 55. León. CP. 24008. CPl. 
Intercambio programas MSX. 
Mandar lista a Juan M. Rial. El 
Romeral, 08. Alfaz del P¡ (Ali- 
cante). Si me mandas una cinta 
con programas os la devolveré 
con otros programas. CPl. 1 
Intercambio programas. Dispon- 
go de más de 150 títulos. Mandar 
lista a Eduardo Bosch Obiol. C/. 
Ramón y Cajal, 53, 3." 2.\ 12005 
Castellón. Tel. (964) 211087. 
CPl. 

Intercambio y vendo programas 
MSX. Primeros títulos del merca- 
do. Llamar a Francisco al (954) 
630 914 de Sevilla de 19 a 20 ho- 
ras. CPl. 

Vendo SONY HB 55P y cartu- 
cho de juegos BATTLE CROSS 
por 30.000 ptas. Compro cartu- 
cho de ampliación a 64 K por 
9.000 ptas. y cartuchos de juegos. 
Escribid a: Angel Vicente Moli- 
nero. C/. BolTvia, 56-58. Tel. 
(976) 314 622. Zaragoza. CPl. 
Intercambio o vendo programas 
MSX. Poseo bastantes y muy 
buenos me interesan juegos, len- 
guajes, etc. Prometo contestar. 
Interesados mandar lista o llamar 
a José L. RUS. C/. Colón, 27, 2." 
A. Granollers (Barcelona). Tel. 
(93) 870 97 75. CPl. 
Vendo/Intercambio programas 
MSX. Tengo entre otros Knigth 
Lore, Alien 8... Interesados escri- 
bir a Ibán Triado. C/. Martorell, 
59, 2." 4. J . Sant Cugat (Barcelona). 
CPl. 

Cambio ordenador SPECTRA- 
VIDEO SVI 738 con unidad de 
disco incorporada por unidad de 
disco Mitsubishi (ML-30FD) de 
3'5". Tengo garantía del SVI 738 
hasta Diciembre 1986. Incluyo 
discos MSX-DOS y CP/M. 
Intercambio/vendo programas 
MSX en cinta o diskette 3 '5" jue- 
gos y gestión. Interesados poner- 
se en contacto con Jordi Arias 
Ruiz. C/. Abat Escarre, 20-22, 3." 
1/ S. Boi. Barcelona. CPl. 



Intercambio programas en cas- 
sette preferiblemente juegos con 
chicos y chicas de toda España. 
Poseo más de 60 títulos. Si que- 
réis ponerse en contacto conmi- 
go, escribid a C/. Joaquim Vayre- 
da, 63, 6." 1/ 17001 Girona o lla- 
mad al (972) 207 837 v preguntad 
por Xcvi. CPl. 

Cambio programas y juegos 
MSX sin fin económico. Mandar 
lista, contestaré a todos. José Mi- 
guel Gil. Aptdo. 2108 Burgos. 
CPl. 

Vendo/Cambio programas MSX 
con usuarios de Barcelona. Poseo 
todos los programas en cinta v 
son últimas novedades. Preguntar 
por Carlos 422 66 76. CPl. 
Gran Oferta. Cambio cinco pro- 
gramas de Konami (Yic Ar Kung 
Fu, CIRCUS CHARLIE, SOC- 
CER, BOXING y ROAD 
FIGTHER) por cartucho de am- 
pliación a 64 K o por 7.000 ptas. 
»e responderá a todas las cartas 
(poner teléfono). José A. Linares. 
C/. Chafarinas, 2. Roquetas de 
Mar. Almería. CPl. 
Vendo o intercambio juegos co- 
merciales a 2.000 ptas. Interesa- 
dos escribir a Juan José. Apartado 
20039 Badajoz. CPl. 
Intercambio o vendo juegos. 
Víctor M. Moreno Giménez. C/. 
Larga, 44. Puerto de Santa María 
(Cádiz). CPl 



i 
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Dispongo de más de 150. Intere- 
sados ponerse en contacto con 
Juan A. López Cierra. C/. Riera 
Blanca, 158, 4." 2.\ Tel. (93) 
431 15 63. L'HOSPITALET 
(Barcelona). CPl. 
Cambio juegos MSX por otros. 
Amplio catálogo. Angel Peña. 
Obispo Basulto, 95. TORREPE- 
ROG1L. Tel. (953) 776 024. 
Intercambio programas. Poseo 
250 primeros títulos. Escribid a 
Javier Cabrera López. Z. R. Los 
Angeles, l."4A Estepona (Málaga) 
o llamad al (952) 803 380. CPl. 
Vendo o cambio programas para 
MSX. Dispongo de títulos tan 
buenos como GUNFIGH, 
NIGHT SHADE, ALIEN 8, 
PROFANATION, etc. También 
cjuiero formar un club. Escribir a: 
Antonio J. García Martínez. Ca- 
mino de Ronda, 38, L° D. Grana- 
da 18005. CPl. 

Intercambio juegos. Carlos Mac- 
daleno Verdes. c/Calderón de la 
Barca 10, Valladolid. Tel. (983) 
257467 (no llamar fines de sema- 
na). CP2. 

Intercambio programas MSX. 
Gonzalo Uncilía. c/San Francisco 
13, 3°, Durango (Vizcaya) y Gui- 
llermo Alberdi c/Bernardo Ga- 
biola 2" 4" Cha. Tel. 6811521 o 
6810773. CP2. 

Compro/vendo cartuchos MSX. 
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Pilar López. c/Honduras 5, 7E, 
Vitoria (Alava). CP2. 
Intercambio programas MSX, 
MS-DOS y CP/M en discos 3, 5". 
Me interesa programa MS-BASE 
IDS intercambiable por MS 
TEXT IDS. José M. Greoles. 
Apdo. 62. 25080 Lleida. CP2. 
Intercambio programas MSX en 
Basic o CM en cinta o disco. Ale- 
xis de Castellón. Tel. (964) 
203486. (De 8,30 a 10 hs.) CP2. 
Intercambio programas MSX. 
José Luis Hernández. c/Sol 26, 
Peñarroya Puo (Córdoba). Tel. 
(957) 560995. CP2. 
Intercambio programas MSX. 
Juegos o de gestión. Angel Peña. 
c/O. Basulto 95, Torreperogil 
Gaén). Tel. (953) 776024. CP2. 
Intercambio programas MSX. 
Juegos, gestión, educativos, apli- 
caciones. Carmelo González 
García. c/Industrias 35, 5" C. 
47005 Valladolid. Tel. (983) 
294592. CP2. 

Contacto con usuarios Yamaha 
CX5M o CX5M II p/intercambio 
de programas. Jenaro Sánchez Vi- 
llegas. c/Iglesia 168, 5" C. Ferrol 
15402 (La Coruña). CP2. 
Vendo Hit Bit 55P y regalo un 
catucho y una cinta de juegos y 
varias cintas vírgenes. Precio 
40.000 ptas. Jorge Javier Cantó. 
Alcoy (Alicante). Tel. (865). 
522723. CP2. 

Vendo Hit Bit 55P, ampliación 
de memoria 64K y 14 interesantes 
juegos. Todo por 50.000 ptas. 
David Butxaca Gros. Serra fcasa 
en Pons, 48. 08600 Berga (Barce- 
lona). Tel. (93) 8211540. CP2. 
Intercambio Tenis, Hunchbach, 
Hero, Stop the Train, Gyro 
Aventure, etc. por un cartucho de 
ampliación de 16K o 64K p/orde- 
nador de 48K. Ricardo Enríquez. 
Plaza Ceramista Gimeno 7, 5". 
Pta. 25. Tel. 3345041. Valencia. 
CP2. 

Contacto usuarios Spectravídeo 
318/328 p/intercambio de ideas, 
programas, trucos, etc. Quiero 
formar un club. Francisco J. Dá- 
vila Couto. c/Petis 32, 1". Bucu 
(Pontevedra). CP2. 
Vendo Sony HB55P c/cables, 
manual en español y caja de 
embalaje original. Casi nuevo. 
Precio 15.000 ptas. Daniel Díaz 
Sañudo. Sevilla. Tel. (954) 
705633. CP2. 

Contacto con usuarios MSX. 
Hazte socio del club CMIP por 
300 ptas. Envía tu dirección y 
participa en nuestros concursos 
mensuales. Antonio Javier García 
Martínez. Camino de Ronda 38, 1" 
D. 18005 Granada. CP2. 
Vendo Hit Bit 101 HP Sony por 
15.000 ptas. Manuel, de Mollet 
(Barcelona). Tel. (93) 5936063. 
CP2. 

Intercambio juegos en cinta y 
cartucho. Antonio Cueto. c/Ma- 
dre Isabel Moreno, 10, 6" B. 41005 
Sevilla. Tel. (954). 630186 (19 a 20 
hs.). CP2. 

Intercambio juegos MSX. Man- 
dar lista. José María Ros. Avda. 
de la Fama. Edif. Rodas 1 ' A. 
30006 Murcia. CP2. 
Intercambio juegos. Jordi Codi- 



na. c/Bilbao 11, 4" 3". Manresa 
(Barcelona). Tel. (93) 8734135. 
CP2. 

Vendo cartucho ampliación de 
memoria 16K. Sonv HBM16. 
Precio 4.000 pts. Perfecto estado. 
Angel Lafuente. c/Alférez Provi- 
sional, 14". 42003 Soria. CP2. 
Cambio/vendo Decathlon y Su- 
per Chess originales por otros 
juegos también originales. Miguel 
Borrego. c/Abad Racimir 11. 
Olot (Girona). CP2. 
Intercambio programas e ideas 
c/usuarios MSX. Poseo La Pulga 
Flight Path 737, Ultra Chess, Air 
Mission, etc. Cristian Freitag. c/ 
Fabra y Puig 67. 08030 Barcelona. 
CP2. 

Cambio cartucho de ampliación 
64 K Sony o SVI por una serie de 
juegos, entre ellos Alien 8, HE- 
RO, Manic Miner, Maciac, etc., 
más 4.000 ptas. en metálico. Es- 
cribir al Apdo. 342 Vitoria (Ala- 
va). CP2. 

Vendo ordenador MSX 80K c/tc- 
clado profesional y numérico y 
monitor color de media resolu- 
ción c/realce color y filtro de 
contraste y antiradiación. José Jo- 
aquín. Tel. (91) 7058831. CP2. 
Vendo Spectravídeo SVI 328, da- 
ta Cassette SVI 904, Coleco vi- 
sión, Game Adaptor SVI 303, 
Quickshot III, cartucho Zaxxon 
p/Coleco, gran número de cartu- 
cho y cintas. Todo en buen estado 
por 55.000 ptas. Acepto ofertas. 
Daniel Nebot. c/Sol i Padrís 
96-98, 8" B. Sabadell (Barcelona). 
Tel. (93). 7107405. CP2. 
Contacto con miembro del Club 
usuarios MSC para información. 
Josep Sais i Mascoprt. La Torre. 
Campllong (Gerona). CP2. 
Camoio 32 juegos de revistas y 32 
comerciales por un cartucho de 
ampliación de 64K de cualquier 
marca. Posible acuerdo de com- 
pra. Jesús Contreras Luna. c/An- 
gelita Capdeville 5, 3" Izq. 10002 
Cáceres. Tel. (927) 223819. CP2. 
Intercambio proeramas, ideas. 



dudas y experiencias. Ricardo Jo- 
sé Durán Carrasco. c/Las mora- 
das, 36 3" B. 47010 Valladolid. 
CP2. 

Intercambio programas MSX. 
Poseo muchos juegos en cartu- 
cho. Prometo responder. Miguel 
A. Martín. c/Oleta 42, 5" D. Bara- 
caldo (Vizcaya). CP2. 
Vendo Data Cartrige p/Sony 
HB55P/HB75P/HB75B cuya 
función es el almacenaje de datos. 
Precio 3.000 ptas. Feo. José Sala- 
zar. Tel. (480). 4670872. CP2. 
Contaco usuarios MSX de Ali- 
cante. Soy novata. Espero vues- 
tras cartas. Noelia Dechent. Ap. 
2154. 03013 Alicante. CP2. 
Contacto p/iniciarme en el ma- 
nejo del Philips MSX. Pido con- 
sejos y programas sencillos. No 
quiero basarme sólo en instruc- 
ciones. Guillermo Celda Casano- 
va. c/Sangunto 67. 46009 Valen- 
cia. CP2. 

Contacto c/usuarios MSX del 
planeta p/intercambio de progra- 
mas e ideas. Contestaré a todos. 
Xosé Lloves. Av. García Barbón 
156, 7" A. 36021 Vigo. Tel. (986) 
439193. CP2. 

Intercambio programas. Contes- 
taré a todos los colegas que escri- 
ban. Victoriano Rodríguez Dávi- 
la. Lepanto 2, Bajo Dcha. Conil 
de la Frontera (Cádiz). CP2. 
Compro programas de gestión en 
disco de 3,5" en CP/M 2.2. Escri- 
bir dando detalles y precio. Ma- 
nuel López Cuesta. Puentelarra 
18. 28031 Madrid. CP2. 
Vendo Sony Hit Bit 55P, más 
cartucho ampliación de memoria, 
más cartucho de juego Crazy 
Train, más 9 libros y 30 juegos 
comerciales. Todo por 45.000 
ptas. Oscar Guillen. e/Enrique 
balas s/n. Abchena (Murcia). 
CP2. 

Intercambio juegos MSX. Man- 
dar lista. José Antonio Otero 
Couselo. c/Fraga do Rei 34. 
Arzua (La Coruña). Tel. (981) 
500016. CP2. 



Cambio Zakil Wood, Rana Side- 
ral y Gusano Loco por H.E.R.O. 
Juan Vidal. c/Mallorca 451, 6-2, 
A. 08013 Barcelona. CP2. 
Compro programs de juegos y 
educativos p/Spcctravídeo 
328/318. Prometo responder. 
Ignacio Montero Araque. c/Co- 
bianca 26, Esc. G, 9" 1 8. Benidorm 
(Alicante). CP2. 

Intercambio juegos. Mándame tu 
lista y te mandaré la mía. Montse 
Zayas Salvat. c/San Marcos 8, 4" 
3\ Badalona (Barcelona). CP2. 
Cambio Soccer, Boxeo, Manic 
Miner, H.E.R.O., etc. por cartu- 
cho de ampliación de memoria de 
16 o 64K. Juan Manuel Otero 
Couselo. c/Fraga do Rei 34. 
Arzua (La Coruña). Tel. (981) 
500016. CP2. 

Compro o cambio por juegos 
ampliador de memoria de 64K. 
Juan M J Gorrotxategui, Guipúz- 
coa 16, 4° C. Ordizia (Guipúz- 
coa). Tel. (943) 885474. CP2. 
Vendo ampliación de memoria 
64K. p/SVI 747 o cambio por car- 
tucho Logo Philips o juegos. 
También vendo o cambio por 
unidad de disco MSX emisora Pa- 
lomar SS/3500 c/40 canales por 
banda, c/medidor, fuente de ali- 
mentación, dos antenas. Jesús 
González Callejas. c/Alpes 41,6 
4\ L'Hospitalet de Llobregat 
(Barcelona). Tel. (93) 3384171. 
CP2. 

Vendo Spectravídeo SVI 328. In- 
cluyo cassette, mandos de juego, 
televisor portátil Philips b/n, pro- 
gramas y libros. Todo por 60.000 
ptas. Carlos, de Avila. Tel. (918) 
228896. CP2. 

Vendo impresora Brother 50 cps. 
cable paralelo incluido. Casi sin 
uso. Precio 45.000 ptas. Xavier, 
de Barcelona. Tel. (93) 2132672. 
CP2. 

Vendo Philis VG 8010. Incluyo 
20 revistas, varios libros, más de 
100 juegos (algunos en cartu- 
chos), joystick Quickshot I, 42 
fascículos del curso Basic softwa- 
re. Todo 30.000 ptas. Juan Carlos 
de la Llana Santos. c/Lleona 12. 
Reus (Tarragona). CP2. 
Cambio dos programas por uno 
de estos cuatro: Hero, Ninja, Bo- 
oga Boo o Pyramid Warp. Agus- 
tín Obradors. c/Mayor 68. Prats 
de Llusanes (Barcelona). CP2. 
Vendo Philips VG8020 80K, muy 
nuevo. Buen Precio. Alberto 
Martínez Correro. c/Palencia 
27-29 esc. A 8«\ 3'. 08027 Bacelo- 
na. CP2. 

Compro toda clase de cartuchos 

Juegos, utilidades, ampliaciones, 
ata cartridges, etc.). José Ignacio 
de Basauri. Tel. (94) 4494685. 
CP2. 

Vendo HIT BIT 101 P con poco 
uso. Javier. Llamar entre 16 y 21 
hs. al Tel. (93) 3099085. CP2. 
Vendo HB 75P Sonv, 80K en 
perfecto estado, c/cables, manua- 
les y unos 60 programas por 
45.000 ptas. Opción a grabadora 
Bitcorder SDC-500. Salvador 
Roura. Pje. Ensesa 7, Pral. 2\ 
25200 Cervera (Lérida). Tel. (973) 
530781 (16 a 18 hs.). CP2. 





Programa 



MINUETO EN 
LA MENOR 

10 REM ########################### 

20 REM ### MINUETO EN LA MENOR ### 

30 REM ### DE JOHANN S. BACH ### 

40 REM ### VERSION DE ### 

50 REM ### ANTONIO V.SANCHIS ### 

60 REM ########################### 

100 COLOR 1,2,15 

110 SCREEN 2 

120 OPEN"GRP: "AS#1 

130 LINE(10, 10) -(245. 180) , 1,B 

140 LINE (12, 12) - (243, 178) , 15, B 

1 50 PRESET ( 23 , 30 ) : PR I NT# 1 , " EL PEQUE 

ÑO LIBRO PARA ORDE-" 

160 PRESET (23,40) :PRINT#1 , "NADOR DE 

ANA MAGDALENA BACH" 
170 PRESET (90, 65) :PRINT#1, "J.S.BACH 

II 

1 80 PRESET ( 85 , 80 ) : PR I NT# 1 , " 1 685- 1 75 
O" 

190 PRESET (23, 150) : PRINT#1 , "Mi nueto 

en La menor. (Canon) 
200 PRESET (55, 95) :FRIIMT#1, "-III CEN 
TENAR I O- " 

210 FOR X=l TO 2000: NEXT 
220 CLS 

230 COLOR 1,10,15 

240 PRESET (23, 80) :PRINT#1, "Versión 
para ordenador de" 

250 PRESET (23, 100) :PRINT#1, "Antonio 

V. Sanchis Girbes" 
260 FOR 1=1 TO 2000: NEXT 
270 GOSUB 640 

280 PLAY " T 1 20L 1 604EER 1 6R 1 6AAAB05CCC 
R1604BBR16R16" , "T120R16R16R16R16R16 
R 1 6R 1 6R 1 6R 1 6R 1 6R 1 6R 1 6L 1 603EER 1 6R 1 6 " 
290 PLAY " T 1 20L 1 605CCCC04 AA AR 1 6 " , " T 1 
20L 1 603AAAB04CCCR 1 6 " 

300 PLAY " T 1 20L 1 605EEEEEEER 1 6EEDDCC0 
4BB05CCCC04AAAR 1 605FFFFFFFR 16", " T 1 2 
0L 1 603BBR 1 6R 1 604CCCC03AAAR 1 604EEEEE 
EER 1 6EEDDCC03BB AAAR 1 6 " 
310 PLAY"T120L16O5EEEED+D+D+R16" , "T 
1 20L 1 603AAAR 1 6 AAAR 1 6 " 

320 PLAY " T 1 20L 1 605EEEE04BBBR 1 605EEE 
EEEER 1 6 " , " T 1 20L 1 603G+G+G+R 1 6G+G+G+R 
16G+G+G+R16GGGR16" • 

330 PLAY " T 1 20L 1 605DDDDC+C+C+R 1 6DDDD 



Por Antonio U. Sanchis™ 



Esta preciosa composición a canon 
de J. Sebastian Bach da la medida de 
lo que puede hacer en el terreno del 
sonido un ordenador de la norma 
MSX. A los amantes de la música 
les entusiasmará la interpretación y 
— esperemos — les anime a realizar 
sus adaptaciones. 

04 AAAR 1 605DDDDDDDR 1 6CCCC04BBBR 1 605C 

CCC04GGGR 1 6 " , " T 1 20L 1 603GGGR 1 6GGGR1 6 

F+F+F+R 1 6F+F+F+R 1 6F+F+F+R 1 6FFFR 1 6FF 

FR 1 6FFFR 1 6EEER 1 6EEER 1 6 " 

340 PLAY " T 1 20L 1 605CCCR 1 604BB05CCDDO 

4BB05FF04A A " , "TI 20L 1 603EEER 1 6DDDR 1 6 

DDDR16DDDR16" 

350 PLAY " T 1 20L4O4G+G+ " , "TI 20L 1 603EE 

ER1602EEER16" 

360 GOSUB 540 

370 PLAY " T 1 20L 1 604GGR 1 6R 1 605CCCDEEE 
R16DDDR16" , "T120L16R16R16R16R16R16R 
1 6R 1 6R 1 6R 1 6R 1 6R 1 6R 1 603GGR 1 6 " 
380 PL A Y " T 1 20L 1 605EEEECCCR 1 6GGGGGGG 
R 16GGFFEEDDEEEECCCR 1 6AAAAAAAR1 6" , "T 
120L 1604CCCDEEER1 6DDDR 1 6EEEECCCR 16G 
GGGGGGR 1 6GGFFEEDDCCCR 1 6 " 
390 PLAY "TI 20L 1 605GGGGF+F+F+R 1 6GGGG 
DDDR 1 6EER 1 6R 1 6FFFFDDDDDDDDCCCCCCCC " 
, "T120L16O4CCCR16CCCR16O3BBBBGGGR16 
04CCR 1 6R 1 603AAR 1 6R 1 6FFR 1 6R 1 6GGR 1 6R 1 
6CCR 1 6R 1 602CCR 1 6R 1 6 " 

400 PLAY " T 1 20L 1 605EEEEFFFFGF+GF+GF+ 

EF+GGGGDDDR 1 6F+F+F+F+GGGR 1 6AG+AG+AG 

+F+G+AAAAEEER1 6AAAA" , "T120R16R16R16 

R16R16R16R16R16R16R16R16R16L1602AAA 

AB-B-B-R 1 603C02BAB03CCCC02BBBBEER 1 6 

R16BBBB03CCCCDC+02B03C+02AAAA" 

4 1 0 PLAY " T 1 20L 1 605FFR 1 6R 1 6EER 1 6R 1 6D 

DR 1 6R 1 6EEEE04EEER 1 6AAR 1 6R 1 6 " , " T 1 20L 

1 603DDR 1 6R 1 6EER 1 6R 1 6FFR 1 6R 1 6CCCCCCC 

CFFR16R16" 

420 PLAY " T 1 20L 1 605DDDDC04B05C04B05C 

04BABAAAA AAA A " , "TI 20L 1 603DDR 1 6R 1 6EE 

R16R1602EER16R16AAAAAAAA" 

430 PLAY " T 1 20L 1 604GGR 1 6R 1 605CCCDEEE 

R 16DDDR 1 6 " , " T 1 20L 1 6R 1 6R 1 6R 1 6R 1 6R 1 6R 

1 6R 1 6R 1 6R 1 6R 1 6R 1 6R 1 603GGR 1 6 " 

440 PLAY " T 1 20L 1 605EEEECCCR 1 6GGGGGGG 

R 1 6GGFFEEDDEEEECCCR 1 6AAAAA AAR 1 6 " , " T 

1 20L 1 604CCCDEEER 1 6DDDR 1 6EEEECCCR 1 6G 

GGGGGGR 1 6GGFFEEDDCCCR 1 6 " 

450 PLAY " T 1 20L 1 605GGGGF+F+F+R 1 6GGGG 

DDDR 1 6EER 1 6R 1 6FFFFDDDDDDDDCCCCCCCC " 

, " T 1 20L 1 604CCCR 1 6CCCR 1 603BBBBGGGR 1 6 

04CCR 1 6R 1 603 AAR 1 6R 1 6FFR 1 6R 1 6GGR 1 6R 1 

6CCR 1 6R 1 602CCR 1 6R 1 6 " 



1 
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Programa 



460 PLA Y " T 1 20L 1 605EEEEFFFFGF+GF+GF+ 
EF+GGGGDDDR16F+F+F+F+GGGR1 6AG+AG+AG 
+F+G+ AA AAEEER 1 6 AA AA " , "TI 20P. 1 6R 1 6R 1 6 
R 1 6R 1 6R 1 6R 1 6R 1 6R 1 6R 1 6R 1 6R 1 6L 1 602A AA 
AB-B-B-R 1 603C02BAB03CCCC02BBBBEER 1 6 
R 16BBBB03CCCCDC+02B03C+02AAAA " 
470 PLA Y " T 1 20L 1 605FFR 1 6R 1 6EER 1 6R 1 6D 
DR 1 6R 1 6EEEE04EEER 1 6 AAR 1 6R 1 6 " , " T 1 20L 
1 603DDR 1 6R 1 6EER 1 6R 1 6FFR 1 6R 1 6CCCCCCC 
CFFR16R16" 

480 PLAY"T120L16O5DDDDCO4BO5CO4B", " 

T 1 20L 1 6Ü3DDR 1 6R 1 6EER 1 6R 1 6 " 

490 PLAY"T100L16Q5CO4B" , "T100L16G2E 

E " : PLA Y " T90L 1 604 AB AAA AAAAAAA AA " , " T9 

0L 1 6Ü2R 1 6R 1 6 A AAAA AAAA AAA " 

500 FÜR 1=1 TO 3000:NEXT:CLS:PSET(2 

5,50) :PRINT#1, "En 1985 se cumplen t 

amblen" : PSET (25, 65) : PRINTttl , "300 añ 

os del nacimiento de" j PSET (80, ^5) : P 

RINT#1 , "G. F. HAENDEL" 

510 LINE (10, 10) - (245, 180) , 13, B: LINE 
(12, 12) -(243, 178) , 15, B 
520 FOR W=l TO 4000: NEXT: CLS 
530 GLOSE #1:SCREEN 0 : KEY ON: END 
540 PLA Y » T 1 20L 1 604EER 1 6R 1 6 AAAB05CCC 
R 1 604BBR 1 6R 1 6 " , " T 1 20R 1 6R 1 6R 1 6R 1 6R 1 6 
R 1 6R 1 6R 1 6R 1 6R 1 6R 1 6R 1 6L 1 603EER 1 6R 1 6 " 
550 PL AY " T 1 20L 1 605CCCC04 AA AR 16", "TI 
20L 1 603AAAB04CCCR 1 6 " 

560 PL AY " T 1 20L 1 605EEEEEEER 1 6EEDDCC0 
4BB05CCCC04 AA AR 1 605FFFFFFFR 1 6 " , " T 1 2 
0L 1 603BBR 1 6R 1 604CCCC03AAAR 1 604EEEEE 
EER 1 6EEDDCC03BB AAAR 1 6 " 
570 PLA Y " T 1 20L 1 605EEEED+D+D+R 1 6 " , " T 
1 20L 1 603AAAR 1 6AAAR 1 6 " 




580 PLA Y " T 1 20L 1 605EEEE04BBBR 1 605EEE 
EEEER 16" , "T120L16O3G+G+G+R16G+G+G+R 
16G+G+G+R16GGGR16" 



590 PLA Y " T 1 20L 1 605DDDDC+C+C+R 1 6DDDD 
04AAAR 1 605DDDDDDDR 1 6CCCC04BBBR 1 605C 
CCC04GGGR 1 6 " , " T 1 20L 1 603GGGR 1 6GGGR 1 6 
F+F+F+R16F+F+F+R16F+F+F+R16FFFR16FF 
FR 1 6FFFR 1 6EEER 1 6EEER 1 6 " 
600 PL AY " T 1 20L 1 605CCCR 1 604BB05CCDDO 
4BB05FF04AA" , "TI 20L 1 603EEER 1 6DDDR 1 6 
DDDR 1 6DDDR 16" 

610 PLAY"T120L4O4G+G+" , "T120L16O3EE 

ER1602EEER16" 

620 RETURN 

630 GOSUB 370 

640 COLOR 1, 10, 15 

650 SOPEEN 2 

660 L I NE ( 1 0 , 1 0 ) - ( 245 , 1 80 ) , 1 , B 
670 LINE (12, 12) -(243, 178) , 15, B 
680 PRESET (23, 30) : PRINTttl , "EL PEQUE 
ÑO LIBRO PARA ORBE-" 

690 PRESET ( 23 , 40 ) : PR I NT# 1 , " NADOR DE 

ANA MAGDALENA BACH " 
700 PRESET (90, 65) :PRINT#1, "J.S.BACH 

M 

710 PRESET (85, 80) : PRINT#1 , " 1685-175 
O" 

720 PRESET (23, 150) :PRINT#1, "Minueto 

en La menor. (Canon) 
730 PRESET (55, 95) :PRINT#1, " -III CEN 
TENAR I O- " 

740 FOR X=l TO 1000: NEXT 
750 RETURN 
760 GOSUB 220 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el programa 
correspondiente publicado en nuestro número 7 del mes de noviembre, pág. 28. programa 



Test de Listado i^m^—^—^^^^m Minueto en la menor ■ 



10 


- 0 


150 


-251 


260 


-102 


370 


- 63 


480 


- 73 


590 


■138 


700 


-112 


20 


- 0 


160 


- 98 


270 


- 29 


380 


- 58 


490 


-220 


600 


-253 


710 


- 96 


30 


- 0 


170 


-112 


280 


-214 


390 


- 65 


500 


-129 


610 


-240 


720 


- 73 


40 


- 0 


180 


- 96 


290 


-196 


400 


-139 


510 


-208 


620 


-142 


730 


-129 


50 


- 0 


190 


- 73 


300 


- 92 


410 


-192 


520 


- 20 


630 


- 14 


740 


- 1 20 


60 


- 0 


200 


-129 


310 


-193 


420 




530 


- 79 


640 


- 94 


750 


-142 


1 00 


- 88 


210 


-100 


320 


-160 


430 


- 63 


540 


-214 


650 


-216 


760 


-119 


1 10 


-216 


220 


-159 


330 


-138 


440 


- 58 


550 


-196 


660 


- 64 




120 


-224 


230 


- 94 


340 


-253 


450 


- 65 


560 


- 92 


670 


- 76 






1 30 
140 


- 64 

- 76 


240 
250 


- 70 
-202 


350 
360 


-240 


460 
470 


-139 


570 
580 


-193 
-160 


680 
690 


-251 


TOTAL: 
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Programa 



iPor Manuel Adrerái 



4 EN RAYA 



Curiosa adaptación del popular 
juego de tablero nos brinda tres 
opciones que son: Jugar contra el 
ordenador; contra otro jugador 
o el ordenador contra nosotros. 
Cada opción (excepto entre usua- 
rios) tiene 2 niveles. ¿A que no 
ganas? 




10 REM ************************ 



CUATRO EN RAYA 



** 
** 
** 
** 
** 



20 REM ** 
30 REM ** 
40 REM ** 

50 REM ** by Manel Adserá 
60 REM ** TARRAGONA 1986 
70 REM ************************ 
80 REM 
90 REM 

100 CLS: KEY OFF" : DEF I NT A- 2 : RN~RND ( 
TIME) 

110 GOSUB 1610 
120 GOSUB 1390 
130 REM ** INICIALIZA VARIABLES *** 
* 

140 DIM Y(ll) 
150 DIM PU (11) 

160 FOP N=4 TO ltsY<N)=4lNEXT 
170 DIM P (14. 14) 

180 REM ** BUCLE " M " DE RUTINA FPIN 
. * 

TO 56 

THEN GOSUB 1250 ELSE GG 
SUB 630: REM ** JUEGA JUG. '2500) O 
MAQ. (130'?' *********,**** ******:**** 
****** * * 

2 1 0 COLOR 1 5 : PRESET ( 25 . 0 ) . 1 5 : PP I NT 
#t„ "lili llllllllll II II lililí I" : COLO 
R I 

220 P(X. Y<X) )=JR 

230 GOSUB 390: REM ** COMP. JUGADA * 



190 FOR M=l 
200 IF JP 7 



* 

240 Y=Y'X> -3: Z = X-3 

250 REM ** MARCA JUGADA ***** 
260 IF 'JP--1 THEN Olí ELSE OS 
270 CIRCLE(l- 7 +24*Z, 1S2-18*Y) . 8.C, , , 
1 .2:PAINT ( 17+24*Z, 182-13*Y) ,C 
280 BEEP 

290 IF Pl=4 THEN BEEP: PRESET (25, 0) , 
15:PRINT#1 , "OTRA PARTIDA (S/N)?":A* 
=INKEY*:IF A*<>"" THEN IF A*="S"OF 
A*="s" THEN RUN ELSE COLOR 15,4,4:E 
ND ELSE 290 : REM ** VICTORIA *** 
300 Y ( X ) ~Y ( X ) + 1 
310 SWAP JR.JJ 
320 NEXT 

330 P 1=4: GOTO 290 
340 END 
350 REM 
360 REM 
370 REM 

380 REM SUBRLIT. 
390 H=Y ( X ) 
400 P1=0 

410 FOR C~~3 TO 3 
420 IF P '"X+-C, H+C) =JF 
LSE P1=0 

IF Pl=4 THEN RETUPN 
NEXT 



COMPRO VAC ION 



THEN P1=TM + 1 E 



43£ 
440 

450 P1=0 

460 FOR 0~3 TO 3 

470 IF P<X-C.H)=JR THEN Pl-Pl+1 ELS 









: ' 1 
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Programa 



E P1=0 

480 IF Pl=4 THEN RETURN 
490 NEXT 
500 P1=0 

510 FOR C*-3 TO 3 

520 IF P(X+C.H~C)=JR THEN P1=P1+1 E 
LSE P1=0 

530 IF Pl=4 THEN RETURN 
540 NEXT 

550 P1=0 

560 FOR 0=4 TO H 

570 IF P(X,C)=JR THEN P1=P1+1 ELSE 
P1=0 

580 IF Pl=4 THEN RETURN 
590 NEXT 
600 RETURN 
610 REM 
620 REM 

630 REM JUEGA MAQUINA 

640 REM 

650 PRESET ( 25 . 0 ) , 1 5 : PR I NT # 1 . " ESTOY 

PENSANDO" 
660 IF P(7,4)=0 THEN X=7:PETURN 
670 IF P<8,4)=0 THEN X =8: RETURN 
680 FOR N=4 TO 1 1 : PU (N) =0: NEXT 
690 FOR X»4 TO 11:Y=Y(X) 
700 IF Y > 1 0 THEN PU ( X ) =-300 j MEXT : GO 
TO 750 

710 P(X.Y)=3 
720 GOSUB 390 

730 P<X,Y)=0: IF Pl=4 THEN RETURN 
740 NEXT:BEEP 
750 JR=1 

?¿¡B FOR X = 4 TO 11 

770 W PU(X)=-300 THEN NEXT: GOTO 33 
0 

780 Y=Y(X) :P(X, Y)=l 
790 GOSUB 390 
800 P<X, Y)«0 

810 IF Pl=4 THEN JR=3: RETURN 
820 NEXT: BEEP 
830 JR=3 

840 FOR X=4 TO 1 1 : BEEP 

850 IF PU<X)=-300 THEN NEXT X : GOTO 

1040 

860 Y=Y < X ) : P < X , Y ) =3 : Y ( X ) «Y+ 1 

3^0 IF Y(X)>10 THEN Y ( X J «Y: P < X . Y J =0 

: NEXT X:GOTO 1040 

380 JR=1:P(X.Y+1>=1 

890 GOSUB 390 

900 P ( X , Y+ 1 ) =0 : JR=3 

910 IF Pi«4 THEN PU ( X ) =~ 1 00 : p ( X , Y) = I 
0: Y (X) =Y: NEXT X:GOTO 1040 
920 IF NI=0 THEN Y { X ) «Y: P ( X , .Y ) =0 : NE 
XT X:GOTO 1040 

930 SS=0:FOR XS=4 TO 11: IF Y(XS)M0 

THEN NEXT XS:GOTO 960 
940 XZ = X: P(XS, Y(XS) ) =3: X = X5: GOSUB 3 




90:X=XZ:IF Pl=4 AND Y(XS>+1<11 THEN 
P<XS, Y<XS)+1)=3:Y(XS)=Y(XS)+1: XZ=X 
: X = XS: GOSUB 390: X=XZ: Y(XS) «VVxg) -1 : 
P (XS, Y ( XS) +1 ) -0: IF Pl=4 THEN SS=2 E 
LSE SS=3S+1 

950 P(XS. Y(XS) )=0:NEXT XS 

960 IF SS>1 THEN Y ( X ) = Y : P ( X , Y ) =0 : RE 

TURN 

970 IF SS=1 THEN PU ( X > =PU ( X ) -3 

980 JR= 1 : SS=0 : P ( X , Y ) = 1 

990 FOR XS=4 TO 11: IF Y (XS) >10 THEN 

NEXT XS:JR=3:G0T0 1020 
1000 P(XS, Y(XS) )=1: XZ = X: X = XS: GOSUB 
390:X=XZ:IF Pl=4 AND Y(XS)+1<11 THE 
N P (XS, Y < XS) + 1 ) = 1 : Y < XS> =Y ( XS) +1 ¿ XZ= 
X: X=XS: GOSUB 390: X=X Z : Y ( XS ) =Y ( XS ) - 1 
: P(XS. Y (XS) +1 ) =0: IF Pl=4 THEN SS=-2 
ELSE SS=SS+1 

1010 P (XS, Y (XS) ) =0: MEXT XS 

1020 IF SS>1 THEN PU ( X ) =PU ( X ) +50 

1 030 P ( X , Y ) =0 : Y ( X ) = Y : NEXT 

1040 FOR X-«4 TO 11: Y=Y ( X ) 

1 050 PU ( X ) =PU < X ) +P ' X - 1 , Y+ 1 ) 4-R ( X - 1 , Y 

) -i-P ( X- 1 , Y-l ) *P ( X . Y- 1 ) +P ( X + l . Y-l ) +P ( 

X+1,Y)+P(X+1, Y+l) 

1 060 I F P ( X - 1 . Y- 1 ) >0 AND P ( X -2 , Y-2 ) 

=P(X-1,Y-1) THEN PU(X)=PU(X)+3 

1 070 I F P ( X - 1 , Y ) >0 AND P ( X~2 , Y ) ~P ( X 

-1,Y) THEN PU (X) =PU (X) +3 

1080 IF P ( X-l , Y+l ) >0 AND P ( X-2, Y+2) 

=P(X-1,Y+1) THEN PU(X)=PU(X)+3 

1090 IF P<X. Y-l) >0 AND P(X, Y-2)=P(X 

, Y-l) THEN PU(X)-PU(X)+3 

1 1 00 I F P ( X + 1 . Y- 1 ) >0 AND P ( X +2 . Y-2 ) 

=P ( X + 1 , Y- 1 ) THEN PU ( X ) =PU ( X ) +3 

1110 IF P(X+1.Y)>0 AND R(X+2,Y)=P(X 

+1,Y) THEN PU ( X ) =PU ( X ) +3 

1 1 20 I F P ( X + 1 , Y+ 1 ) >0 AND P ( X +2 , Y+2 ) 

=PCX+1,Y+1) THEN PU(X)=PU(X)+3 

1130 NEXT 

1 1 40 PU ( 7 ) =PU (7) +3: PU (8) -PU ( 8 ) +3 : PU 
( 6 ) «PU < 6 ) +2 : PU ( 9 ) «PU ( 9 ) +2 : PU ( 1 0 ) =PU 
(10W1:PU<5)«PU(5)+1 
1150 TT:=-1000 
1160 FOR N-4 TO u 

1170 IF PU(N):TT THEN TT=PU(N):X=N 

i 180 I F PU ( M ) =TT AND I NT <RND(1> *2) > 

0 THEN TT-PU ( N ) : X-N 

1190 NEXT:JR=í3 

1200 RETURN 

1210 REM 

1220 REM 

1230 REM JUEGA JUGADOR 

1240 REM 

1 250 PPESET ( 25 . 0 ) . 1 5 : COLOR 1 

1260 PRINT #1, "USTED JUEGA. HUMANO. " 

5 

1270 BEEP 



Í 280 


IF INKEY$< >" " THEN 1 


280 






1570 


REM 










1 290 


D= V AL ( I NKE Y $ ) : IF 


D>8 


OR D< 1 


TH 




1580 REM 










EN i 


290 










1 S'yw 


REM 


PRESENTACION 






t 300 


IF Y <D-i-3> >10 THEN 12 


90 






1 1>\0\0 


REM 












1310 


PRINT #1.D:BEEP 










1 i. 1 í/t 


SC RE EN 0: COLOR 


2. 1, 1: 


CLS 




1320 


FOR N=í TO 200:MEXT 








1 O ¿. VJ 


LOCATE 10, 10: PRIMT"CUATRO 


EN R 


1330 


X=D+3 










nln : 


BEEP 












1340 


PETURN 










1 O _•!£' 


LOCATE 1 5 . 20 : PR I NT " b y 


Manel Ad 


1350 


REM 










será' 


: BEEP 












i zm 


REM 










1 640 


FOR N 


= 1 TO 


4000 


: NEXT 






1.370 


REM GRAFICOS 










1650 


FOR N 


= 1 TO 


24: PRINT: BEEP: NEXT 


1380 


REM 










1 660 


LOCATE 10. 10: PRINT" 1 : 


Humano vs 


1 390 


SCREEM 2:0PEN "qrp: " 


ASttl 






. máquina" 


: BEEP 










1 400 


COLOR 2, 15, 15:CLS 








1670 


LOCATE 10, 12:PRINT"2: 


Humano vs 


1410 


LINE (25, 25) - (225 


, 188) BF 






, humana" : 


BEEP 










1420 


LINE(22,22)-(228 


, 191) , ,B 






1 680 


LOCATE 10. 14: PRINT"3: Máqui na v 


1430 


FOR M=41 TO 209 


STEP 


24 






s. humano" 


: BEEP 










1440 


FOR N=56 TO 164 


STEP 


18 






1690 


LOCATE 20 , 20 : I NPUT " OPC I ON " 


; JR: 


i 450 


CIRCLE(M.N) .8, 1, 


, , 1. 


2 






BEEP 














1460 


NEXT : NEXT 










1700 


IF JR=2 THEN JJ 


=1: RETURN 




1470 


COLOR 15 










1710 


IF JR 


OI AND JR 


O 3 THEN 1690 


1480 


FOR N=41 TO 209 


STEP 


24 






1720 


IF JR 


=1 THEN JJ 


=3 ELSE JJ= 


•1 


1 490 


H=H+1 










1 730 


FOR N 


= 1 TO 


24: PRINT: BEEP: NEXT 


1 500 


P5ET(N-3. 178) ,2: 


PRINT ttl.H 






1740 


BEEP: 


LOCATE 10, 10: INPUT"NIVEL 


1510 


NEXT 










(0/1) 


";NI: 


BEEP 










1520 


IF JR=2 THEN 1560 








1 750 


IF NI 


<>0 AND NI 


OI THEN 1740 


1530 


COLOR 9:PRESET(3 


5,30) , 15: PRINT 




1 760 


LOCATE 0,24: FOR 


N=l TO 13: 


BEEP 


#!, " 


"•láqui na" 










: PRINT: NEXT 










1540 


COLOR 11:PRESET(153.30) , 15:PRI 




1770 


LOCATE 4, 10: PRINT "PREPARATE PA 


NT#1 , "Humano" 










RA EL INFIERNO, HUMANO": BEEP 




1 550 


COLOR 1 








1 780 


FOR N 


= 1 TO 


2000 


: NEXT 






1560 


RETLIRN 










1790 


RETURN 






























en r; 




























aya« 


10 


- 0 270 -138 


530 


, - 1 20 


790 - 


34 


1 050 


-187 


1310 


... 40 


1570 


- 0 


20 • 


- 0 280 -192 


540 


'-131 


800 - 


126 


1060 


-109 


1 320 


- 62 


1 580 


- 0 


30 


- 0 290 -103 


550 


-129 


810 - 


81 


1 070 


- 96 


1 330 


-144 


1 590 


- 0 


40 


t 0 300 -246 


560 


-234 


820 - 


125 


1 080 


-106 


1340 


-142 


1 600 


- 0 


50 


- 0 310 - 0 


570 


-168 


830 - 


159 


1 090 


- 96 


1 350 


- 0 


1610 


- 53 


60 


~ 0 320 -131 


580 


- 1 20 


840 - 


203 


1 100 


-106 


1360 


- 0 


1620 


-205 


70 


- 0 330 -121 


590 


- 1 3 1 


85!' 


;j _ 


157 


1110 


— 93 


1 370 


- 0 


1 630 


1 38 


80 


- 0 340 -129 


600 


-142 


860 - 


140 


1 120 


-103 


1380 


- 0 


1640 


- 50 


90 


- 0 350 - 0 


610 


- 0 


870 - 


106 


1 130 


-131 


1 390 


- 82 


1 650 


- 83 


100 


- 97 360 - 0 


620 


- 0 


881' 


r 


89 


1 140 


-126 


1400 


- 61 


1660 


- 57 


1 10 


-235 370 - 0 


630 


- 0 


890 - 


34 


1 150 


-144 


1410 


-134 


1 670 


- 180 


120 


- 14 380 - 0 


640 


- 0 


900 - 


90 


1160 


-199 


1420 


- 64 


1680 


- 63 


130 


- 0 390 - 57 


650 


- 31 


910 - 


194 


1 170 


—233 


1430 


-178 


1690 


-230 


140 


- 74 400 -129 


660 


-134 


92* 


- 


248 


1 180 


-164 


1440 


-143 


1 700 


- 96' 


1 50 


-150 410 -167 


670 


-136 


930 - 


193 


1 190 


- 92 


1 450 


- 75 


1710 


- 35 


160 


-186 420 - 21 


680 




940 - 


151 


1 200 


-142 


1 460 


- 64 


1720 


- 9 


í 70 


-141 430 -120 


690 


- 85 


950 - 


53 


1210 


- 0 


1470 


-219 


1730 


- 83 


180 


- 0 440 -131 


700 


-187 


960 - 


213 


1220 


- 0 


1480 


-179 


1740 


- 94 


1 90 


-240 450 -129 


710 


-129 


970 - 


157 


1 230 


- 0 


1 490 


-130 


1750 


- 72 


200 


-174 460 -167 


720 


- 34 


980 - 


54 


1240 


- 0 


1500 


- 12 


1 760 


-190 


210 


-217 470 -226 


730 


- 48 


990 - 


246 


1 250 


-204 


1510 


-131 


1 770 


-226 


220 


-178 480 -120 


740 


-jl25 


1000 - 


147 


1 260 


-132 


1520 


- 47 


1780 


- 90 


230 


- 92 490 -131 


750 


-157 


1010 - 


53 


1 270 


-192 


1 530 


- 90 


1790 


-142 


240 


- 49 500 -129 


760 


-209 


1020 - 


200 


1280 


-129 


1540 


- 72 






250 


- 0 510 -167 


770 


-114 


1 03! 




191 


1 290 


- 71 


1 550 


-207 


TOTAL: 


260 








1 300 






-142 


18338 
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El MSX por dentro. 




JE 



EN TORNO A LOS 
SPRITES (II) 



La primera parte de este artículo pre- 
tendió sentar las bases sobre la mane- 
ra que los SPRITES encajan en los 
ordenadores MSX, ampliando la 
información que se ofrece en los ma- 
nuales de los fabricantes. En ésta, la 
continuación, se expondrán aplica- 
ciones más complejas, centradas en 
dos aspectos: los registros del VDP 
relacionados con las figuras móviles y 
la gestión de éstos mediante interrup- 
ciones. 



EL VDP Y LOS SPRITES 

La zona de trabajo de los SPRITES 
dentro de la RAM de video viene de- 
terminada por dos registros del VDP: 
el quinto y el sexto. 
El VDP(5) se encarga de indicarle al 
procesador de video dónde empieza la 
zona de atributos (color, posición y 
número de patrón). Quizás os estéis 
preguntando cómo es que un registro 
de sólo ocho bits puede almacenar nú- 
meros mayores de 2*8-1 (255). Para en- 
tender el método con el que el sistema 
consigue salvar este inconveniente, es 
necesario saber que la VRAM cuenta 
con 16K (16384 bytes para ser exactos), 
lo que significa que la dirección más 
alta posible es la 2 14-1 y que el bit más 
significativo es el catorce. Teniendo es- 
to en cuenta y sabiendo que el procesa- 
dor de video considera el contenido del 
VDP(5) como los siete bits de mayor 
peso de la dirección, se deduce fácil- 
mente que se puede hacer referencia a 
cualquier posición de la VRAM, con el 
solo requisito de que ésta sea múltiplo 
de 128, puesto que los siete bits de me- 
nor peso son tomados como ceros por 
el procesador. Así las cosas, siempre 
que se quiera cambiar la zona de atri- 
butos de los SPRITES deberá escribirse 
en el VDP(5) la nueva dirección dividi- 
da por 128. 

Por su parte, el VDP(6) define el inicio 
de la tabla de patrones, es decir, la for- 
ma de los SPRITES. Su contenido indi- 
ca los tres bits más significativos de la 
posición final, por lo que es necesario 
dividir por 2048 la nueva dirección a la 
que debe apuntar. 

DOS JUEGOS DE SPRITES 

De lo expuesto anteriormente se dedu- 
ce que es posible, en determinadas cir- 
cunstancias, mantener a la vez dos jue- 
gos de SPRITES, completamente inde- 
pendientes entre sí, cambiando los re- 
gistros cinco y seis del VDP. Sin 
embargo, en el supuesto de que se pro- 
grame en BASIC, es necesario readap- 



tar, a su vez, las tablas BASE y ciertas 
variables del sistema, de forma que el 
intérprete reconozca plenamente la 
nueva disposición de la VRAM. 
Antes de entrar en más complicaciones, 
os aconsejo que tecleéis el programa 
que sigue: 

10 KEY1, CHR$(12)+ M POKE- 

614, &HC9"+CHRS<13> 

20 KEY2,CHR$(12)+"POKE- 

614, &Hc3 M +CHR$<13> 

30 KEY3,CHRS(12)+"SCREE 

N0 M +CHR$<13> 

40 P0KE&HFD9A, &HC9 

50 POKE&HFD9D, 0: POKE&HF 

D9E, 0 

60 SCREEN1, 0 

70 FORX=10240TO11260STE 

P4 

80 VPOKEX, 209: VPOKEX+2, 
S: S=S+1 : NEXT 
90 GOSUB240: GOSUB160: GO 
SUB290: V=4: GOSUB160 
100 Z$=INKEY$: I] 
EN100 

110 IFVTHENV=0: GOSUB240 
: GOTO100 

120 V=4: GOSUB290: GOTO10 
0 

130 1 

140 ' DEFINICION DE LOS 

SPRITES 
150 ' 

160 FORX=0TO3 
170 FORY=0TO7: AS=A$+CHR 
$ ( VPEEK ( Y+X*8 +52 0 + V*8 > > 
: NEXT 

180 SPRITE$(X)=A$: A$= M " 
: NEXT 

190 FORX=0TO3: PUTSPRITE 
X, <X*20+V*20, 86) , 15: NEX 
T 

200 RETURN 
210 » 

220 ' VDP NORMAL 
230 É 



240 VDP(6)=7: VDP(5)=54 
250 POKE&HF927 , 56 : POKE& 
HF929 , 27 : POKE&HF3C4 , 27 : 
POKE&HF3C6 , 56 : RETURN 
260 » 

270 ' VDP CAMBIADO 
280 ' 

290 VDP(5)=80: VDP<6)=6 
300 POKE&HF927 , 48 : POKE& 
HF929, 40: POKE&HF3C4 , 40 : 
POKE&HF3C6, 48: RETURN 

FUNCIONAMIENTO DEL 
PROGRAMA 

Observaréis que este programa trabaja 
en SCREEN1. Ello es así porque este 
modo de pantalla deja libres gran parte 
de los 16K de video, lo que permite 
emplear espacios vacíos de la VRAM 
para definir unas nuevas zonas de tra- 
bajo. 

La tabla de atributos de los SPRITES 
en SCREEN1 comienza en la dirección 
6912 (BASE[8]) y la de patrones en la 
14336 (BASE[9]). La subrutina de las 
líneas 240 y 250 sitúan al ordenador en 
las condiciones antes descritas, esto es: 
igual que si se acabara de encender el 
aparato y se hubiera tecleado "SCRE- 
EN1". Por otra parte, la subrutina de 
las líneas 290 y 300 hacen que se defi- 
nan nuevas zonas de atributos y de pa- 
trones, apuntando a las direcciones 
10240 y 12288 respectivamente. Natu- 
ralmente estas direcciones pueden ser 
ajustadas a las necesidades de cada pro- 
grama, con la salvedad de que no coin- 
cidan con otras áreas importantes de la 
VRAM. No obstante, para que el intér- 
prete BASIC íiírncione bien con la rea- 
signación, es imprescindible preparar la 
nueva zona de atributos, numerando 
los SPRITES de uno en uno y ponién- 
dolos todos en la coordenada vertical 
209, de la misma manera que lo hace el 
sistema operativo cuando se cambia a 
SCREEN1 (las líneas 70 y 80 realizan 
este cometido). 

Otra rutina importante es la que va de 
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las líneas 160 a la 200. Notaréis que se 
asignan a cuatro SPRITES otros tantos 
modelos, para situarlos a continuación 
en una misma fila. Los modelos referi- 
dos no son otros que letras mayúsculas 
tomadas de los patrones de caracteres. 
Llegado a este punto, estamos en con- 
diciones de analizar el comportamiento 
del programa. Al hacer RUN, la línea 
90 llamará a las subrutinas correspon- 
dientes para definir los cuatro primeros 
SPRITES como letras de la A a la D. 
Además, la misma línea cambiará los 
registros del VDP para adaptarlos al 
nuevo juego de SPRITES y conferirá a 
las cuatro primeras figuras el siguiente 
grupo de letras (de la E a la H). Todos 
estos modelos podrán ser vistos con 
ayuda de las líneas 100 a 120, puesto 
que cada vez que se pulse una tecla se 
intercambiarán el juego de SPRITES. 
He de advertiros que no debéis tocar la 
tecla de función F2, porque su funcio- 
namiento podría colgar el ordenador. 

CONMUTACION POR 
INTERRUPCIONES 

Habéis visto de que forma tan sencilla 
es posible construir dos juegos de 
SPRITES por separado y acceder a 
cualquiera de ellos a voluntad. Sin 
embargo, lo ideal sería poder contar 
con ambos a la vez. Ya que esto no es 
posible, intentaremos hacer el cambio 
de juego de manera tan rápida que dé la 
impresión de que los dos están funcio- 
nando simultáneamente. Os aconsejo 
que probéis a mantener apretada una 
tecla mientras ejecutáis el programa 
anterior, para haceros una idea del 
principio de conmutación por inte- 
rrupciones. 

El sistema operativo de los MSX traba- 
ja atendiendo una interrupción cada 
1/50 segundos, utilizando para ello una 
rutina del BIOS situada en la posición 
&H38. Lo primero que hace esta rutina 
es apilar todos los registros y llamar al 
gancho situado en &HFD9A. Para 
nuestros fines, será necesario poner en 
parche en la referida posición y hacer 
que se alternen los dos juegos de SPRI- 
TES a cada interrupción. 
La rutina que sigue emplea este princi- 
pio: 



10 


0R6 


50000 


20 urtvdp: 


EQU 


147 


30 SCRKOD: 


EQU 


IFCAF 


40 BASE8: 


EQU 


6912 


50 BASE9: 


EQU 


14336 


60 N6ASE8: 


EQU 


10240 


70 N6ASE9: 


EQU 


12288 


80 


LD 


A,(SCRH0D) 


90 


DEC 


A 


100 


RET 


NZ 



110 LD A,tC9 

120 LD (IFD9A),A 

130 LD A , ( RELE+ 1 ) 

140 0R A 

150 JR 2.E0 

160 LO MIF3E0) 

170 XQR 1 

180 LD 6, A 

190 LD C,l 

200 CALL URTVDP 

210 E0: LD A, (RELE) 

220 XQR 255 

230 LD (RELE) , A 

240 JR Z,E1 

250 CALL VDPCAHB 

260 JR EXIT 

270 El: CALL VDPN0HL 

280 EXIT: LD A.IC3 

290 LD (tFD9A),A 

300 RET 

310 VDPN0NL: LD B.BASE8/128 

320 LD C,5 

330 CALL URTVDP 

340 LD B.BASE9/2048 

350 LD C,6 

360 CALL URTVDP 

370 LD HL.BASE8 

380 LD (IF928),HL 

390 LD HL.8ASE9 

400 LD (IF926),HL 

410 RET 

420 VDPCAHB: LD B.NBASE8/128 

430 LO C,5 

440 CALL URTVDP 

450 LD B.NBASE9/2048 

460 LD C,6 

470 CALL URTVDP 

480 LD HL.NBASE8 

490 LD (IF928),HL 

500 LO HL.NBASE9 

510 LD (#F926),HL 

520 RET 

530 0R6 IFD9A 

540 JP 50000 

550 RELE: DEFB 0 



— — 

Como observaréis, esta rutina de con- 
mutación se sirve de dos subrutinas que 
funcionan de la misma forma que sus 
homologas en BASIC, me refiero a las 

3ue se encargan de cambiar los registros 
el VDP y las variables del sistema para 
pasar de uno a otro juego de SPRITES. 
Así, la subrutina VDPNOML hace lo 
mismo que la de la línea 240 del progra- 
ma BASIC y VDOCAMB se comporta 
igual que la de la línea 290. 
Si no tenéis ensamblador emplead este 
programa cargador: 

10 ' 

20 ' CONMUTACION DE 
30 ' SPRITES POR 



40 1 INTERRUPCIONES 
50 ' 

60 FORX=50000!T050104! 
7 0 READVS : POKEX , VAL < " &H 
" +VS ) 

80 S=S+VAL ("&H" +VS) : NEX 
T 

90 IFSO 10130THENBEEP: C 
LS: PRINT"HAY UN ERROR E 
N LAS DATAS 

100 P0KE&HFD9B, &H50: POK 
E&HFD9C, &HC3 
110 P0KE&HFD9D, O : POKE&H 
FD9E, O 

120 DATA3A, AF, FC, 3D, CO, 
3E, C9, 32, 9A, FD, 3A, 9E, FD 
, B7, 28, OB, 3A, EO, F3, EE, O 
1, 47, OE, 01, CD, 47, 00, 3A, 
9D, FD, EE, FF, 32, 9D, FD, 28 
, 05,CD,9E,C3, 18, 03.CD.8 
3, C3, 3E, C3, 32, 9A, FD, C9, 
06,36, OE, 05, CD, 47, 00, 06 
, 07, OE, 06, CD, 47, 00, 21, O 
0, IB, 22, 28, F9, 21, 00, 38, 
22,26, F9.C9, 06,50, OE, 05 
, CD 

130 DATA47, 00, 06, 06, OE, 
06, CD, 47, 00, 21, 00, 28, 22 
, 28, F9, 21, 00, 30, 22,26, F 
9, C9 



EJECUCION DE LA RUTINA 

Esta rutina no funciona de forma inde- 
pendiente, necesita el programa BASIC 
para correr. Cuando tengáis los códi- 
gos en memoria, cargad el referido pro- 
grama y volved a ejecutarlo, añadiendo 
la siguiente línea: 
105 END 

El programa se detendrá mostrando 
cuatro SPRITES en la pantalla (letras 
de la E a la H). Ahora, pulsad la tecla 
F2. Si todo sale como está previsto, de- 
beréis contemplar los dos juegos de 
SPRITES a la vez, cosa que podréis 
constatar por el hecho de que aparecen 
ocho figuras en la misma línea, cuando 
la regla de quinta SPRITE prohibe te- 
ner más de cuatro. 

También es posible que coexistan dos 
juegos de SPRITES de diferentes tama- 
ños. Para ello, pulsad la tecla Fl y eli- 
minaréis el funcionamiento de la rutina 
de interrupciones. A continuación, te- 
clead POKE&HFD9E,l y reactivad la 
rutina con F2. De esta forma haréis que 
uno de los juegos se represente am- 
pliado. 

POSIBLES USOS DE LA RUTINA 

La rutina de conmutación presenta un 
inconveniente: en monitores con poca 
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MSX por dentro 



persistencia en el tubo de rayos catódi- 
cos puede presentarse una molesta vi- 
bración. Sin embargo, hay programas 
comerciales que emplean una rutina si- 
milar a ésta, aunque limitan su uso a 
apariciones esporádicas de SPRITES. 
Una aplicación típica son los casos en 
los que es necesario contar con muchas 
figuras en pantalla a la vez, como cuan- 



do se quieren representar explosiones u 
otros efectos que sólo han de ser vistos 
por unos momentos; logrando así que 
el inconveniente de la vibración no sea 
perceptible. 



Es 



CONCLUSIONES 

posible que lo tocado aquí resulte 



difícil de entender para los recién llega- 
dos al MSX. De cualquier forma y aun- 

3ue alguno de los temas no haya que- 
ado claro para alguno de vosotros, es 
seguro que habréis avanzado un poco 
más en las interioridades del sistema. 
Sin abandonar los SPRITES, la tercera 
parte de este artículo, versará sobre las 
colisiones. 




N.°" 1 a 4 - 475 PTAS. N.° 5-150 PTAS. 



N.°6 - 150 PTAS. 



N.°7- 150 PTAS. 

m3u 



N.°8- 150 PTAS. N.°*9y 10- 300 PTAS. 




v 



n.° ii - 1: 



N.° 12 - 175 PTAS. N« 13 - 175 PTAS. N.° 14-175 PTAS. N.° 15-175 PTAS. N ÜS 16 y 17 - 350 PTAS. 




N.° 18 - 175 PTAS. 



¡SI TE HACE FALTA ALGUN NUMERO DE FA^Ij PIDELO HOY MISMO! 

Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 



BOLETIN DE PEDIDO 

j Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

i gastos de envío, por lo que adjunto talón n." del Banco/Caja 

por el importe de ptas. a nombre de 

I NOMBRE Y APELLIDOS 

CALLE N." CIUDAD 



MANHATTAN TRANSFER, S.A. 



L P_ p _ji— — • PROVINCIA 



TEL. 



2Ü 
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CURSO DE INGLES 



The Gruneberg Linkword Language System es un sistema, para enseñanza de idiomas, más rápido y 
fácil que los métodos convencionales aplicados actualmente. 

En poco tiempo, máximo 20 horas, te enseñará un vocabulario de 400 palabras y adquirirás unas buenas 
nociones de gramática. Esto te permitirá entender y ser entendido en tus viajes a lugares de habla inglesa 
o en tus contactos con personas que se expresen en ese idioma. 

Por otra parte, el Sistema PlusData, consigue que el ordenador se convierta en un perfecto profesor que 
te explicará, orientará y corregirá, manteniendo en todo momento un "diálogo" interactivo de resulta- 



dos sorprendentes 



THE GRUNEBERG LINKWORD 
LANGUAGE SYSTEM 

d©t© 



plu/ 




afeitas?-* 



-"PERSONAL COMPUTER 
WORLD": 

"Un suceso fuera de serie..." 



interesante... " el m 




O O ICO 



Programas de EAO para EGB. 
Cursos de Basic, Cobol, etc. AUTODIDACTAS. 




Nombre 

Apellidos 

Dirección 

Población 

D.P 

Forma de pago: 



i 



Reembolso Q 



.Tino 

Giro postal □ 



Envío talón □ 



□ Curso de Inglés 1/ parte. 10 lecciones Linkword. (Cinta) P.V.P. 6.900.-Ptas. 

□ Curso de Inglés 1/ parte. 10 lecciones Linkword. (3,5"-Disk) P.V.P. 7.900.-Ptas. 

ENVIAR ESTE CUPON A: PLUS DATA, S.A. CA GRAN VIA, 661 pral. 08010-Barcelona. Tel. 246 02 02 



ENTRA 
EN LA 

AVENTURA 
CORRE 
A TODA 

PASTILLA 




Monitor al día 



Otro juego sensacional de 
MANHATTAN TRANSFER, S. A. 



SONY INAUGURA 
EXPOSICION PERMANENTE 
DE TODOS SUS PRODUCTOS 

SONY, una de las compañía pio- 
neras en el ámbito del MSX, da 
un nuevo paso al frente para acercar a 
los usuarios toda su gama de produc- 
tos; no sólo los ordenadores sino tam- 
bién sus últimas novedades en TV, Ví- 
deo, Compact Disk y Alta Fidelidad. 
Para todo ello, ha inaugurado reciente- 
mente un amplio local de 340 m 2 en 
Barcelona, en la calle Sabino de Arana 
52-54. En ella ocupa un lugar preferen- 
cial la gama de ordenadores y periféri- 
cos, que disponen de una sala indivi- 
dual de 30 m 2 donde se han instalados 
30 equipos MSX a la entera disposición 
del público. Además de ello, también 
hay un aula informática donde se 
imparten cursillos de BASIC en cinta 
de vídeo. 

Otro apartado al que se ha dedicado 
especial atención ha sido el video, don- 
de los visitantes pueden ver y probar el 
revolucionario sistema de vídeo de 8 
m/m manejando una Handicam. 
Es realmente ejemplar que una firma 
dé) prestigio de SONY se decida a 
acercar sus productos a los usuarios sin 
ningún ánimo de lucro, ya que no se 
realizan ventas en el mencionado local, 
y ofreciendo el asesoramiento de su 
personal especializado ante cualquier 
duda que pueda planteársele. 
En resumen, esta exposición perma- 
nente es una muestra más de garantía 
puesto que no hay mejor forma de ava- 
lar un producto aue permitir que el hi- 
potético cliente lo pruebe a su gusto 



THE GRUNEBERC LINKWORD 
LANCUAGE SYSTEM 

PlusDATA S.A. empresa creada 
recientemente por profesionales 
de la informática, tiene como objetivo 
principal el desarrollo del SOFTWA- 
RE EDUCATIVO. Además han co- 
menzado con buen pie, puesto que pre- 
sentan al mercado nacional un «Num- 
ber One» de este tipo de software: El 
curso de Inglés por ordenador GRU- 
NEBERG LINKWORD LANGUA- 
JE SYSTEM; desarrollado por una pri- 
merísima autoridad en Psicología, el 



Erofesor Michael Gruneberg en cola- 
oración con otros miembros de la 
Universidad de Swansea (Gales) donde 
tiene su cátedra. Este sistema, amplia- 
mente conocido allende nuestras fron- 
teras donde ha probado su eficacia a 
miles de usuarios que con él han apren- 
dido algún idioma extranjero. 
El objetivo principal del sistema es 
conseguir una rápida y fácil memoriza- 
ción de un extenso vocabulario de casi 
400 palabras, lo que se consigue me- 
diante la interrelación de palabras e 
imágenes junto* con lo distendido y 
chocante de las' frases que se utilizan 
durante el curso y los ejercicios de tra- 
ducción. 

Además de todo esto, PlusDATA S.A. 
entregará un diploma acreditativo de 
haber culminado el curso con éxito a 
quienes completen con éxito el examen 
final. Do you speak English? 



J0YSTICK SPEED KINC 

wm 




SERMA S.A., empresa puntera en 
el terreno del MSX comercializa 
un joystick absolutamente revolucio- 
nario. Se trata del SPEEDKING, que 
es quizá el heraldo de un nuevo con- 
cepto en el terreno de los joysticks. De 
diseño absolutamente ergonómico y de 
rápida respuesta está pensado para 
obtener una máxima velocidad en cual- 
quier aplicación. 

Al margen de su novedoso diseño, que 
permite sostener perfectamente el man- 
do con la mano izquierda que se ocupa 
del botón disparador mientras la dere- 
cha opera la palanca, merece especial 
atención su solidez y consistencia. Mu- 
chos usuarios han experimentado en 
carne propia que los joysticks terminan 
muriendo por la palanca, cosa que es 
difícil que suceda en este mando por ser 
el interior de la misma un eje de acero. 
Premio al que lo rompa. 





PRIMERAS 
JORNADAS 
DEL MSX 



En el marco de SONIMAG, que se celebra en Barcelona 
del 15 al 21 de Septiembre y tendrán lugar las primeras 
jornadas del standard MSX, organizadas por MANHAT- 
TAN TRANSFER, S.A. con la inapreciable colaboración de 
los principales representantes del standard. 
En estas jornadas, tomarán parte además de los fabricantes 
de los ordenadores los fabricantes de software y las principa- 
les firmas relacionadas de un modo u otro con el sistema 
MSX, además de la prensa especializada. 
Hasta estas primeras Jornadas del MSX no se había conse- 
guido una comunicación tan directa y variada entre los dife- 
rentes sectores que componen el espectro de la norma. 
Uno de los objetivos primordiales de estas Jornadas es la 
unificación de posturas entre los fabricantes — tanto de soft- 
ware como de hardware — de cara a adoptar estrategias co- 
munes para la implantación definitiva del standard, que ha- 
brá que redundar en una mejor calidad de los productos 
finales y en una más amplia cobertura del espectro de las 
necesidades de los usuarios. 

Otro tema que se piensa tratar a fondo es el de la piratería, 

que tanto perjudica a usuarios y fabricantes. 

Se crearán diversas comisiones integradas por miembros de 

los diversas entidades participantes, con lo que se espera for- 

mentar la colaboración de cara a una política de objetivos 

comunes. 

Esperamos que se obtenga mucho provecho de estas prime- 
ras Jornadas del MSX, y sobre todo, que de ellas salga bene- 
ficiado en primer lugar el usuario, que en definitiva es quien 
cuenta. 



GRANCOÑCURSÓ 

BOOGA 
BQO 



¡Haz saltar la pulga hasta 
lo más alto y podras ganar 
hasta 125.000 pts. en pre- 
mios! 

MSX CLUB DE PRO- 
GRAMAS y MIND GA- 
MES ESPAÑA, S.A. te des 
alian a que juegues con Boo- 
ga Boo y ganes. Booga Boo 
es una simpática pulga salta- 
rina que cierto día cae a las 
profundidades de una cueva 
habitada por un peligroso 
dragón y plantas carnívoras. 
Tú, no solo tienes que sor- 
tear estos obstáculos, sino 
llevar a Booga Boo a la su- 
perficie superando los 80 ni- 
veles de que consta el juego 
y logranuo la máxima pun- 
tuación. ¿Te animas? 



Bases 



1. Para participar remítenos: 

a) Una fotografía de la últi- 
ma pantalla de Booga Boo. 

b) Una fotografía del ta- 
blero de puntuación con tu 
nombre en el primer lugar. 

c) Al dorso de ambas fotos 
coloca tu nombre, direc- 
ción, teléfono V el número 
de referencia de Mind Ga- 
mes Efcpaña, S.A., editor 
autorizado de Booga Boo 
en versión MSX para Es- 
paña, que figura en la cará- 
tula original. 

2. Y.\ ganador será el que 
obtenga mayor puntuación. 

3. En caso de haber más de un 
concursante con la máxima 
puntuación, el ganador se 
sorteará entre ellos. 

4. El premio al ganador con- 
sistirá en 125.000 pts. en 
software de Mind Gamos 
España S.A. y material di- 
dáctieo de informática MSX. 




5. Todos los concursantes re- 
cibirán un regalo por su 
participación. 

6. El concurso caduca el día 
30 de noviembre de 1986. 

7. Quedan excluidos de parti- 
cipar en este concurso los 
empleados, agentes y fami- 
liares de los mismos de Quick- 
silva Ltd., Argus Specialist 
Publications, Alabaster Pass- 
more & Sons, Mind Games 
España, S.A., Ivex Films, 
S.A. y Manhattan Transfer, 
S.A. 

8. La participación implica la 
aceptación de las presentes 
reglas. 

9. Las decisiones de MSX 
CLUB DE PROGRAMAS 
serán inapelables y no se 
mantendrá corresponden- 
eia con los concursantes. 

10. Remite el sobre a: 

MSX CLUB DE 
PROGRAMAS 
CONCURSO 
BOOGA BOO 
Roca i Batlle 10-12 
Barcelona 08023 




¡GANA 125.000 pts.!! 
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El MSX en expansión i 



^^Por Josep Oriol Tomasi 



IMAGEN POR 
ORDENADOR 



Muchos de nuestros lectores han 
mostrado curiosidad por el apa- 
sionante tema de la imagen por 
ordenador. Para satisfacer su 
curiosidad, vaya como adelanto 
este artículo del Director de VEN- 
TAMATIC S.A., empresa dedi- 
cada a la comercialización de equi- 
pos para esta tarea. 



El uso de la imagen creada mediante 
ordenador se está generalizando hoy en 
día en todos los campos de la comuni- 
cación visual. Podemos ver imagen 
creada y animada mediante ordenador 
en la televisón en forma de videoclips, 
las alienantes series de dibujos anima- 
dos japoneses que son — o al menos lo 

[>arecen — todas iguales, publicidad te- 
evisiva, carátulas de presentación de 

[>rogramas, e incluso en el cine donde 
as escenas más imposibles de ciencia- 
ficción o fantasía, toman una materiali- 
dad tan ficticia como convincente. 
En su versión estática, la encontramos 
también en los mapas del tiempo de los 
informativos, en los títulos de crédito 
de numerosos programas, gráficos es- 
tadísticos y, ya fuera del ámbito televi- 
sivo, en folletos, revistas y catálogos 
bajo la forma de logotipos, gráficos es- 
tadísticos, y toda suerte de grafismos 
espectaculares que con toda probabili- 
dad, nos habrán despertado la curiosi- 
dad en el sentido de cómo habrían sido 
realizados. 

Ejemplos conocidos de la imagen reali- 
zada con ordenador (casi al límite de las 
posibilidades que permite la técnica 
actual) los tenemos en el videoclip 
"Hard Woman" de los Rolling Stones, 
la película M The Last Starfighter" ó, 
anteriormente, la película "Tron". 
Además de un nuevo medio de comu- 
nicación visual, la imagen por ordena- 
dor es también un nuevo arte, pero con 
una enorme ventaja sobre las restantes 
manifestaciones de arte pictórico-vi- 
sual; la transportabilidad. El soporte de 
presentación de la imagen de ordena- 
dor es, principalmente, la pantalla del 
monitor, pero se conviene por necesi- 
dad que, la representación de esa ima- 
gen en un soporte final en forma de 
cinta de video, fotografía, etc., tiene el 
mismo valor y además, normalmente, 
también se ve mejor que el original en 
la propia pantalla del ordenador. Adi- 
cionalmente, por si fueran pocas las 
cualidades sorprendentes de este me- 
dio, al constituir un conjunto más de 




datos, puede también almacenarse en 
los soportes propios de registro de da- 
tos informáticos (disco, diskette, cinta, 
etc.). 

La particularidad de la imagen de orde- 
nador es que no existe físicamente a 
menos que se traslade a un soporte fo- 
tográfico o impreso. Resulta evidente 
que una imagen representada sobre una 
pantalla de visualización es algo visible 
pero intangible; no existe físicamente 
ya que no la podemos tocar. En reali- 
dad no es más que un montón de unos 
y ceros colocados adecuadamente en 
una memoria. En video tampoco exis- 
ten físicamente, pues se halla codificada 
en una cinta. Se puede decir que sólo 
una vez transferida a una cinta cinema- 
tográfica, fotografía, diapositiva o pa- 
pel, una imagen de ordenador existe fí- 
sicamente. Pero entonces deja ya de ser 



una imagen de ordenador y se convier- 
te en un "dibujo", en una "foto", en un 
"impreso" o en un "fotograma", dado 
que pierde la esencia de imagen electró- 
nica y lo que constituye su particulari- 
dad más fundamental y, posiblemente, 
la razón más poderosa de su propia 
existencia y de la de los equipos que la 
hacen posible; la MOD1FICABILI- 
DAD. 



QUE ES LA IMAGEN DE 
ORDENADOR 

Al acercarnos al monitor, hemos podi- 
do observar que todos los dibujos; to- 
das las letras y gráficos, están constitui- 
dos a base de puntitos que en el argot se 
conocen como "pixels"; la materia pri- 
ma de la imagen de ordenador. Cuanto 



22 



mayor es el número de éstos en panta- 
lla, la velocidad con que pueden ser 
manejados (cambiarlos de color, apa- 
garlos, encenderlos, etc.) y el número 
de colores diferentes que puedan adop- 
tar cada uno, mayor será la potencia del 
ordenador para generar imágenes de 
calidad. 

Así pues, existen grados de calidad que 
van desde la que puede ofrecer el MSX, 
con un resolución de 256x192 puntos 
y 16 colores, hasta sistemas de 
4.096x4.096 pixels y posibilidad de es- 
coger entre 16 millones de colores. 




Obviamente, sus precios también dis- 
tan mucho; desde las 50.000 ptas.- de 
un MSX, pasando por sistemas basados 
en ordenadores tipo PC y compatibles 
que pueden costar entre 1 y 15 millo- 
nes, y los casi 100 millones del especia- 
lizado BOSCH FGS40. 
En definitiva, el fundamento de la ima- 
gen de ordenador es tan viejo como la 
historia misma de los ordenadores. Se 
trata, simplemente, de la representa- 
ción en la pantalla de una serie de datos 
codificados en la memoria del mismo. 
Lo que al principio sólo fue una rudi- 
mentaria capacidad para representar 
unos bastos caracteres alfanuméricos, 
se ha ido desarrollando y perfeccionan- 
do hasta alcanzar las características 
descritas anteriormente. 
Ahora bien, si el asunto fuera tan senci- 
llo, a estas alturas todos tendríamos en 



casa un ordenador para hacer dibujitos 
como quien tiene una caja de rotulado- 
res. Lo que ocurre es que, aparte de lo 
que pueda costar el equipo físico de 
imagen de ordenador (el hardware), lo 
que realmente encarece la realización y 
obtención de imagen de ordenador, y 
hace que se consigan mejores o peores 
resultados, es la serie de programas (el 
software) que hace funcionar al hard- 
ware. 

El diseño de esos programas llega a ser 
extremadamente complejo y suelen re- 
querir de sus creadores grandes conoci- 



- Transparencias. 

- Metamorfosis de formas a través de 
una secuencia de animación. 

- Ampliación y reducción de figuras. 

- Visualización desde puntos de vista 
variables, tanto internos como exter- 
nos a la figura. 

- Etc., etc. 

Se comprende pues que estos progra- 
mas lleguen a requerir años de trabajo 
por parte de competentes equipos de 
programación, y que puedan costar 
muchos millones de pesetas. 




miemos de matemáticas y física por 
parte de los que intervienen. Si bien 
hay programas sencillos de dibujo en 
dos dimensiones que se limitan a per- 
mitir el trazado de líneas, figuras geo- 
métricas, rellenos de color, etc., los 
programas más complejos de dibujo en 
tres dimensiones y animación permiten 
efectos tales como: 



- Simulación de varios focos de luz de 
color, intensidad, incidencia, posi- 
ción, etc. totalmente variables. 

- Degradados de color o efectos de ae- 
rógrafo. 

- Desplazamiento y visualización de fi- 
guras en los tres ejes. 

- Definición de recorridos y movi- 
mientos de animación. 

- Sombreado de acuerdo con los focos 
de luz. 





LA IMAGEN DE ORDE- 
NADOR EN EL MUNDO 

Hay muchas más empresas dedicadas al 
diseño y fabricación de sistemas más o 
menos complejos de imagen de ordena- 
dor, hardware y programas, así como 
de producción comercial de imagen de 
ordenador para usuarios finales, princi- 
palmente en Estados Unidos, aunque 
también las hay en Inglaterra, Francia, 
Canadá, Alemania y Japón. 
Las empresas de producción comercial 
de imagen de ordenador suelen trabajar 
para productoras de televisión, de cine, 
discográficas, agencias de publicidad, 
etc. y realizan trabajos tan variados y 
de distinta índole como los dibujos ani- 
mados de Heidi o Los Mosqueperros, 
escenas de las películas de la saga de 
w La Guerra de las Galaxias", los rótu- 



El MSX en expansión 




33^ run 1 Eon ;6o$: 



3ie NCxr r 





los de aquel u otro anuncio del deter- 
gente-que-lava-más-blanco-que-el-de- 
mi-vecina, los gráficos estadísticos de la 
multinacional de turno, el logotipo de 
la ferretería de la esquina, el última vi- 
deo-clip de los "Desconocidos", e in- 
cluso los efectos de rayo láser de cual- 
quiera de las series norteamericanas bi- 
rrioso-espaciales. 

En la asctualidad se editan alrededor de 
10 revistas especializadas y se celebran 
otras tantas ferias anuales, entre las que 
cabe destacar la del SIGGRAPH, que 
reúne la mayor exhibición de trabajos y 
empresas del sector de todo el mundo. 

LA IMAGEN DE ORDE- 
NADOR EN ESPAÑA 

Como en tantas otras cosas, en España 
hemos entrado un poco tarde en este 
fantástico mundo de la imagen por 
ordenador, y hay todavía pocas empre- 
sas que se dediquen a su creación y co- 
mercialización y, en la mayoría de los 
casos, con muchos menos medios que 
empresas similares de Francia, Inglate- 
rra, Alemania o Luxemburgo (por no 
querer mencionar a Estados Unidos o 
Japón). 

En estos momentos conocemos 4 o 5 
empresas que se dediquen en España a 



la producción de imagen de ordenador, 
y son: 

- A.T.C. en Madrid, que dispone de un 
sistema diseñado por ellos mismos. 
Uno de sus trabajos más interesantes 
es el video de las Meninas digitaliza- 
das presentado en PROCESOS. 

- ANIMATICA en Barcelona, quizás 
la más conocida, que dispone de un 
sistema BOSCH FGS40, y con el que 
han realizado las carátulas de ESTA- 
DI02 y ARSENAL, por citar las dos 
más espectaculares de las muchas que 
han hecho para televisión. 

- FRACTAL en Barcelona. Dispone 
de un sistema PICTUREMAKER de 
CUBICOMP y cuentan con la extra- 
ordinaria ventaja que supone el pro- 
ceder del mundo artístico y del gra- 
fismo, para poder conseeuir resulta- 
dos francamente extraordinarios. 

- IDEOGRAPHICS, en Barcelona. Se 
dedican más bien a la creación de 
imagen de ordenador estática con un 
sistema DICOMED. 

-TELSON en Madrid, dispone tam- 
bién de un sistema PICTUREMA- 
KER de CUBICOMP. 

Cabe mencionar también los sistemas 
CHYRON de TV3 y los SPACE- 



WARD de TVE, con los que realizan 
múltiples grafismos electrónicos para 
cabeceras, carátulas de presentación, 
mapas del tiempo, etc. 
Por otro lado, y dado que se ha restrin- 
gido bastante la oferta del producto fi- 
nal hacia las televisiones y productoras 
de video, nos encontramos con que el 
mercado es todavía muy reducido para 
que puedan entrar en él un mayor nú- 
mero de empresas. En el medio se habla 
mucho de que cuando aparezcan las te- 
levisiones privadas se ampliará el mer- 
cado y habrá mucho más trabajo, pero 
lo que hay que hacer, y de hecho hay 
alguna personas aue ya están haciendo, 
es promocionar la imagen de ordena- 
dor a un nivel de difusión y utilización 
mucho más amplio, pues en realidad, 
ABSOLUTAMENTE TODOS los di- 
seños, grafismos, logotipos, marcas, 
ilustraciones, etc. que se están realizan- 
do con métodos manuales tradicionales 
y se utilizan en toda la industria del 
país, pueden realizarse con mucha más 
facilidad, rapidez, posibilidades y me- 
jores resultados mediante un ordena- 
dor. 

También hay pocas empresas en Es- 
paña dedicadas a la comercialización de 
equipos de imagen por ordenador y, de 
hecho, sólo conocemos una que esté 
más o menos al corriente de todo lo 
que existe y se está desarrollando en 
este mercado a nivel mundial, y que 
actúe de distribuidora tanto de marcas 
con importador oficial en España, co- 
mo de marcas que no lo tengan. Se trata 
de VENTAMATIC. 
Las empresas que importan, entre otros 
muchos productos que nada tienen que 
ver con el tema que nos ocupa, tarjetas 
gráficas y software para micro-ordena- 
dores tipo PC y compatibles con capa- 
cidad para crear imagen de ordenador 
de características totalmente profesio- 
nales, como por ejemplo OMNILO- 
GIC, que importa NUMBER NINE, 
PC VISION, HALO, GRAFPOINT, 
IMIGIT y CHORUS o FOX COM- 
PUTER, que importa CORECO. 
Las empresas especializadas en equipos 
más dirigidos a productoras de viaeo, 
son: COMAQU1SA, que importa los 
famosos sistemas PICTUREMAKER 
de CUBICOMP; DATAVISION, que 
importa X-COM y el C.V.I. (Compu- 
ter Video Instrument) de FAIR- 
LIGHT; y otros importadores de 
CHYRON, QUANTEL, ETC. 



JOSEP ORIOL TOMAS 

Director de Ventamatic 
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BIENVENIDOS A msxclub 

UN SOFTWARE DE AITA CALIDAD PAMHSX 



KRYPTON 




J0, 



KRYPTON. La batalla más audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un Juego cuya popularidad es cada 
vez más grande entre los usuarios del MSX. 
PVP. 500 Ptas. 




QUINIELAS 



U-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



CON GARANTIA / 

■ya:. ■•/•: •/•: . "--v ;t^. :•/.. 



QUINIELAS. El más completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. rVP. 700 
Pita 




8HAKE. Entretenido y muy c 
en el que Snake procura comer i 
ros que la engordan. Tanto las murallas que 
ala pueden e 




EL SECRETO DE LA PIRAMIDE. Atrevido 
Juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. {Atrévete si 
les! PVP. 700Ptas. 



STAR RUNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespaclo, contraías defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad PVP. 1.000 pts. 



FLOPPY, El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costará 
mucho superarlo. PVP. 1.000 Ptas. 



MAD FOX. Un héroe solitario es 1 
una carrera a vida o muerte por un d 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión. Diez nivelas 
de dificultad. PVP 1.000 pts. 




Nombre y apellidos: 
Dirección: 



□ KRYPTON 

□ U-BOOT 

□ QUINIELAS 



Ptas. 500- □ SNAKE 

Ptas. 700,- □ EL SECRETO DE LA PIRAMIDE 

Ptas. 700,- □ STARRUNNER 

Gastos de envío certificado por cada cassette 
Remito talón bancario de Ptas. 



Tel.: 



FLOPPY 
MAD FOX 



Ptas. 600- 
Ptas. 700,- 
Ptas. 1.000,- 

Ptas. 70 - 
a la orden de Manhattan Transíer, 8 A 



PVP. 1.000 Ptas. 
PVP. 1.000 Ptas. 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: 

indicar en ei sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



Programa 



iPor Sasch; 



PHANTOM 



PHANTOM no es el típico juego 
de matar marcianos, así como 
tampoco se trata de un juego de 
aventura. Pero participa un poco 
del espíritu de ambos. Hay que 
recoger 4 monedas perdidas en 
una casa a oscuras llena de bichos 
mortales; pero... 
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* PHANTOM * 

* POR SASCHA (ALEJANDRO) * 

* YLLA-KoNNEKE * 

* PARA MSX-CLUB DE PROGRAMAS *. 

^ % ^ )f ^ ^ ^ ^ ^ ^ 1,^0(£) ^ % % ^ ^ ^ ^f- ^ ^ ^f- )f' ^ 

jit*********************** ¡tí***** 

ON STOP GOSUB 5430 
STOP ON 

COLOR 15, 1 , 1 : SOPEEN 2: COLOR 15,1 
, 1 : KEYOFF: OPEN"GRP: "AS#1 
40 ' PRESENTACION 

50 SPR I TE* <■. 1 ) =CHR* ( 2<HFF ) +CHR* ( ?<HFF ) 

+CHR* ( S<HC3 ) +CHR* ( ?<HC3 ) +CHR* ( &HFF ) + C 

HR* (?<HFF) +CHR* ( ?<HC0 ) +CHR* ( ?<HC0 ) 

60 SPR I TE* (2) =CHR* < &HC3) +CHR* <?<HC3) 

+CHR* < S-.HC3 ) +CHR* ( S<HFF ) +CHR* ( ?<HFF ) +C 

HR* ( ?<HC3 ) h CHR* ( S<HC3 ) +CHR* ( ?<HC3 ) 

70 SPR I TE* ( 3 ) «CHR* ( ?<HFF ) +CHR* ( ?<HFF ) 

+CHR* ( ?.<.HC3 ) +CHR* ( &HC3 ) +CHR* < ?<HFF > + C 

HR* ( ?-:HFF ) +CHR* ( ?<HC3 ) +CHR* ( ?<HC3 ) 

80 SPR I TE* <4) =CHR* (?<HF3) +CHR* <S<HF3) 

+CHR* ( ?:HF3 ) +CHR* ( ?<HFB ) +CHR* ( ?<HDB ) +C 

HR* < S<HCF ) +CI-IR* ( &HCF ) +CHR* ( ?<HCF ) 

90 SPR I TE* ( 5 ) =CHR* ( ?.-HFF ) +CHR* < Í-HFF ) 

+CHR* ( ?<H 1 8 ) +CHR* (&H18) + CHR* ( *H 1 8 > +C 

HR* ( ?<H 1 8 ) +CHR* ( ?<H 1 8 ) +CHR* ( W 1 8 ) 

1 00 SPR I TE* ( 6 ) =CHR* < 2<HFF ) +CHR* ( S<HFF 



) , + CHR* ( ?:HC3 ) h-CHR* ( SíHC3 ) +CHR* ( &HC3 ) + 
CHR$ (?<HC3) +CHR* ( S/.HFF ) -+ CHR* ( &HFF) 
1 05 SPR I TE* ( 7 ) =CHR* ( &HC3 ) +CHR* ( S:HE7 
) +CHR* ( ?/.HFF ) +CHR* ( S;HDB ) + CHR* < &HDB ) + 
CHR* ( S-HDB ) +CHR* ( 8cHC 3 ) + CHR* < &HC3 ) 
110 GOSUB 460:A=0:B=0 

PUTSPRITE1 , <A,B> , 15, 1 
A=A+3:B=B+3 
IF A>50 THEM A=50 
IFB>90 THEN B=90:GOTO 170 
GOTO 120 
C=255; D=<? 



120 
1 30 
140 
1 50 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
230 
290 
300 
310 
320 
330 
340 



PUTSPRITE 2, (C.D) , 15,2 

C=C-3: D=D+3 

I FD >90THEN D=90 

IF C -" 70THEN C=70:GOTO 230 

GOTO 180 

E=255:F=192 

PUTSPRITE3, ( E , F ) , 15,3 

E=E-3: F=F~3 

IF F<90 THEM F=90 

IF E< 90THEM E=90:GOTO 290 

GOTO 240 

6=0: H=192 

RUT SPRITE4, (G, H) , 15, 4 
6=6+3: H=H--3 

IF H<100 ANO G ' 1 00 THEN H=110 
IF G > 1 1 0THEN G=110:H=H~1 
IF H< 90 THEN H=90:GOTO 360 
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350 GOTG 300 

360 1=210: J = 100 

370 PUT SPRITE 5, (I,J),15,5 

380 PUT SPRITE 6 , ( I +20 , J ) , 1 5 , 6 

390 PUT SPR I TE 7, <l +40 . J) , 15,7 

400 1=1-3 

410 IF I< 130 THEN 1=130: GOTO 430 
420 GOTO 370 

430 GDSUB 460 : L I NE ( 30 , 70) - < 225 , 1 50 ) 

, 4, B: COLOR , , 4: PAINT (0, 0) , 4 

440 PREBET ( 35 , 1 40 ) : COLOR 1 5 : PR I MTtt 1 

,"POR SASCHA YLL A-KbNNEKE " 

450 FOR 1=0 TO 100: NEXT: COLOR ,,1:F 

ORI=0TO 200: NEXT: GOTO' 430 

460 PLA Y " T255V 1 5L 1 03DD#ED#DD#ED#DD 

#ED#DDD# " , " VI 5L 107FAFAFAL64EFFFFFFF 

FF" , " T25502V 1 5L 1 DD#ED#DD#ED#DD#ED#D 

DD" 

470 RETURN 

480 COLOR , , 12:FORI=0TO200:NEXT:COL 
OR , , 1 : FOR I=0TÜ200: NEXT: COLOR , , 13: 
FOR I =0TO 300 : ME X T 

490 COLOR , , 1: POR I =010200: NEXT: COLO 
R , » 8 : FOR I =0TO 200 : NEXT : COLOR , * 1 : F 
OR I =0TO200 : NEXT : COLOR , , 1 1 ¡ FOR I =0TD 

200: NEXT: COLOR , , 1 
500 FORI =0 TO 1000: NEXT: SCREEN 0 
510 ' INSTRUCCIONES 

520 CLS : PR I NT " MECES I TAS I NSTRUCC I ON 
ES (S/N>? " 
530 I*=INKEY* 

540 IF I*="S"OR I*="s"THEN 570 
550 IF I*="N"OR I $ = " n " THEN PRINT: PR 
INTsPRINT: CLS: GOTO 680 
560 GOTO 530 

570 CLS : PR I NT " I NSTRUCC I O 

NES " 

580 PRINT: PPIMT"Eres un buscador de 
tesoros y has oído hablar dé un 

as monedas (=C0IN5) antiguas (de mu 

cho valor) en una casa abandonada." 

590 PRINT "La casa no tiene luz pero 
por suerte te has traído cerillas( 

«MATCHES) „ 

6 0 0 P'R I NT " Ten c u i d a d o p o r d o n d e p i s 

as ! Por el suelo hav muchas arañas 

, f a n t a. s m a s y cala v eras 1 " 

610 PRINT "NO SE TE OCURRA TOCARLOS 

PUES PERDE - RIAS UNA VIDA. La casa t 

i en s 6 h ab i t a-c i on es ( =ROOM ) . " 

620 PRINT"No puedes andar con una c 

erilla en- cendida ! Asi que fijat 

e bien si en- — cien des una !. 

630 PRINT "Los cuadros verdes son pu 

ertas para pasar a otras habitacio 

nes. Después de recoger las 4 moneda 

s (=♦ ) vuelve al punto de salida '," 

640 PRINT: PRINT "< SPACE >" 

650 I*=INKEY* 

660 IF I*=" " THEN 680 



670 GOTO 650 

680 CLS: LOCATE 2,5 : PRINT"! — > 1 p 
LAYER with J0YSTICK":L0CATE2,7:PRIN 
T"2 — > 1 PLAYER with KEYBOARD" : PRI 
NT : PR I NT : PR I NT : I NPUTA 
690 IF A=l THEN Z=l 
700 IF A=2 THEN 2=0 

705 IF A>2 OR A<1 THEN PLAY"vl5oll8 
cd":GOTO 680 

710 CLS : C 1 = 1 : C2= 1 : C3= 1 : C4= 1 : CE= 1 : GO 
SUB 5300 

720 CLS:LOCATE 10, 10: PRINT"PLAYER 1 
READY " : FOR I =0TO 1 000 : NEXT : GOTO 920 
730 ON STOP GOSUB 5430 
740 STOP ON 

750 ? ALGUNAS SUBRUTINAS 
760 " - DEL PANEL 

770 LINE(0, 130) -(256, 135) ,6,BF:LIME 
(0, 135) -(256, 191) , 1,BF 

780 PRESET ( 1 00 , 1 40 ) : COLOR 1 5 : PR I MTtt 
1. "COINS: ": PRESET (180, 140) : PR I NTtt 1 , 
" MATCHES": PRESET ( 190, 155) : PRINTttl . M 
A 

. 790 PRESET ( 20 , 1 40 ) : PR I NT# 1 , " MEN " : 
PRESET ( 30 ,160): PR I NT# 1 . L 1 
800 RETURN 
810 ' MOVIMIENTO 

820 D=STICK(Z) 

830 IF D=lTHENY=Y-5 

840 IF D=2THENY=Y-5: X=X+5 

850 IF D=3TIHEMX = X + 5 

860 IF D=4THENX=X+5: Y=Y+5 

370 IF D=5THENY=Y+5 

880 IF D = 6 T H E M X = X - 5 : Y = Y •' 5 

890 IF D«=7THENX=X-5 

900 IF D=8THENX=X-5: Y=Y-5 

910 RETURN 

920 ' 1 ER CUARTO 

930 SCREEN2 : CLOSE : OREN " GRP : "AS#1 : CO 
LOR 15, 1. 1: X=10: Y=65:R0=1 
?40 SPR I TE* ( 8 ) =CHR* ( &H38 ) +CHR* ( feW7 
C ) + CHP* l. ?:H54 ) •+ CHR* ( S-H54 ) +CHR* ( &H7C ) 
+CHRÍ < ?:H38 ) +CHR* ( ?<H0 ) +CHR* ( ?<H38 ) 
950 SPR I TE* (14) «CHR* ( &HEP ) +CHR* ( *<H2 

8 ) +CHR* ( S<H7E ) +CHR* ( ?<HFF ) +CHR* ( ?<HFF ) 
+ CHR* (&H7E) +CHP* (?<H28) +CHR* (?<HEF> 
960 SPR I TE* ( 1 0 ) =CHR* ( ?<HBD ) +CHR* ( S<H7 
E ) +CHR* ( S<HD7) +CHR* ?<HD7) +CHR* ( ?<HFF ) 
+CHR* ( S<H7E ) +CHR* ( ?<HFF ) +CHR* ( S:HD5 ) 
970 SPR I TE* ( 1 1 ) =CHR* ( S-.H38 ) +CHP* ( ?<H7 
• C ) +CHR*/ ?:HFE ) -MTHR* < S-HD6 ) +CHR* ? &HD6 ) 
+ CHR* <?<HFE) +CHR* ( &HFE ) +CHR* ( &H54 ) 
930 SPR I TE* ( 1 2 ) =CHR* ( S<H99 ) +CHR* ( ?<H9 

9 ) 'CHR* ( &HFF ) +CHP* ( ?<H3C ) +CHR* ( ?<HFF ) 
+CHR* (&HBD) +CHR* ( SíHBD) +CHR* (&H99) 
9 O0 SF <. i TEf . ( 0 ) ¿CHR* < ?<H3C ) +CHR* ( ?<H3C 
) +CHR* (?,H3C) +CHR* ( S<H 1 8 ) +CHR* ( ?-:H3C ) + 
CHR* ( ?<H5A ) +CHR* ( &H 1 3 )' +CHR* ( ?<H66 ) 

1 000 SPR I TE* (13) =CHR* < 0 ) +CHR* < 24 ) +C 
HR* '. 60 ) +CHR* \l 26 ) +CHR* ( 1 26 ) +CHR* ( 60 

— 



Programa 




) +CHR* (24 ) +CHR* (0) 
1010 GOTO 1-060 
1020 ' GRAFISMG 

1 030 L I ME ( 0 , 0 ) - ( 256 ,10), 3 , BF : L I ME ( 0 
, 10) -(10, 50) , 8, BF: LIME (0,80) -(10. 13 
0) , 8, BF: LIME ( 100, 0) - ( 110, 30) , 3, BF: L 
I ME ( 1 00 . 1 1 0 ) - ( 1 1 0 , 1 30 ) , 8 , BF 
1040 LINE (240,0) - '256. 100) . 3, BF: LI 
NE( 110,5) -(140, 15) , 12,BF:LINE(190, 1 
25) - (220, 135) , 12, BF: LINE (245. 100) - ( 
256, 12?) , 12,BF:LINE(0, 130) -(256. 135 
) ,8, BF 

1050 PRESET (30. 2) : COLOR 1 : PRIMT#1 , " 
ROOM 1" 
1055 RETLIRM 

1060 GOSUB 760: GOSUB 1020 

1070 IF RO=l THEN X=10: Y=65: GOTO 10 

90 

1075 IF R0=5 THEN RO=l : X=130: Y=20: G 
OTO 1090 

1080 IF R0=2 THEN RO=l : X=230: Y=l 15: 
GOTO 1090 

1085 IF R0=3 THEN RO=l : X=205: Y=l 15: 

GOTO 1090 

1090 F1=-10:S1=1 

1100 GOSUB 310 

1 1 20 RUT SPR I TE 0 , ( X , Y ) , 1 5 , 0 
1130 IF X< 5 THEN X=5 
1140 IF Y<10 THEN Y=10 
1150 IF X<190 AND YM20 THEN Y=120 
1160 IF X >220 AND Y>120 THEN Y=120 
1170 IF Y< 105 AND X>230 THEN X = 230 
1180 IF Y<35 AND X >90 AND X<100 THE 
N X=90 

1190 IF Y<85 AND X< 115 AND X>105 TH 
EN X=115 

1200 7 FANTASMAS, ETC 
1210 PUT SPRITE 1, (80,85) , 1. 12 
1220 PUT SPRITE 2, ( 130, 100) , 1 , 10 
1230 PUT SPRITE 3. (200. 50) , 1 , 10 
1240 PUT SPRITE 4, (210, 100) , 1 , 12 
1250 IF S1=1THENPUT SPRITE 5,(60,F1 
) , 15, 11 

1260 IF X>30 AND X< 35AND S1=1THEN 
F 1 -F 1+14: BEEP 

1270 IF F1M30 THEN S 1=2: PUT SPRITE 
5, (0,0) „P, 11 

1280 PUT SPRITE 6. ( 130. 40) , 1 , 12 
1290 IF Cl = l THEN PUT SPRITE 7, (90, 
20) ,1,13 
1300 ' LIMITES 

1310 IF Y<15 AND X>105 AND X<140 T 
HEN GOTO 3860 

1320 IF X>250 AND Y>100 THEN GOTO 
1700 

1330 IF Y>125 AND X>1?0 AND X<220 
THEN GOTO 2360 

1340 IF CE=1 AMDSTR I G ( 2 ) =- 1 THEN GO 



SUB 1410 

1350 ON SPRITE GOSUB 1450: SPR ITEON 
1360 GOSUB 3040 

1370 IF X<10AND Y<80 AND Y >50 ANDC1 
=2ANDC2=2ANDC3=2ANDC4=2THEN GOTO520 
0 

1380 ' 
1390 7 

1400 GOTO 1100 
1410 - CERILLAS 1 

1420 CIRCLE ( X+3, Y +3) , 20. 1 1 : RAI NT (X + 
3, Y+3) , 11:MA=MA-1: GOSUB 760: GOSUB 10 
20 

1430 FOR 1=0 TO 1000: NEXT: CIRCLE (X+ 
3 , Y+3 ) , 20 , 1 : PA I NT ( X+3 . Y+3 ) , 1 : GOSUB 

1 020 

1435 IF MA< 1 THEN CE=2 
1440 RETURN 
1450 7 COLLISION 1 
1455 SPRITE QFF 

1460 IF X>80 AND X<1 10 AND Y<40 THE 
N C 1 =2 : PL AY " 06L8 V 1 5CEGCEGCEG " : RETUR 
N 

1465 GOSUB, 1680 

1470 IF L 1 > 1 THEN L 1 =L 1 - 1 : X= 1 0 : Y=65 : 
GOSUB 760: RETURN 1090 

1480 IF L 1 > 2 THEN L1=L1-1 : X=10: Y=65: 

GOSUB 760: RETURN 1090 

1490 IF L 1=1 THEN L 1=0: GOSUB 760: GOT 

01550 

1550 7 FINAL 

1560 LINE (50, 50) - ( 180, 75) , 15, BF 
1570 PUT SPRITE 0 , ( X , Y ) , 1 5 , 8 : PRESET 
(55, 60) : COLOR 1 : PRINT#1 , "PL. 1 GAME 
OVER." : FOR 1=0 TO2300: NEXT : PLAY "VI 5L8 
06GEC05GEC04GEC03GEC02GEC01 CDCD" : F 
ORI=0TO 1200: NEXT 

1580 SCREEN 0: COLOR 15: LOCATE 2,5:P 
RI NT "QUIERES VOLVER A JUGAR (S/N) ? 

1590 I*=INKEY* 

1600 IF I*="N"OR I*="n"THEN CLS:GOT 
O 5430 

1610 IF I*="S"OR I$="s"THEN 1630 
1620 GOTO 1590 

1 630 CLS : PR I NT : PR I NT : PR I NT " CON FRES 
EMTACION (S/N) ?" 
1640 I$=INKEY* 

1650 IF I*="N"OR I*="n"THENPUN 680 
1660 IF I*="S"OR I*="s"THENRUN 10 : 
1670 GOTO 1640 

1680 BEEP: PLAY " V15o41 4ar64al 1 6r64a 

h-6414ar64o514co4r641 16br6414bl 16r64 

ar64L4ar 16L8a#14a" 

1690 RETURN 

1700 ' 20 CUARTO 

1710 SCREEN 2 

1720 COLOR 15. 1, 1 
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2200 GOTO 1850 


1 / *r 83 




2210 > CERILLAS 2 


•i —TCT t -< ■> 




2220 CIRCLE(X + 3,Y+3> ,20, 11:PAINT(X + 


i 7LÍ/I cnm i QT'íyt 

i / oVJ üU ! U \W*£W 




3,Y+3) , U:MA=MA-1:G0SUB 760: GOSUB 17 


1 7 "7 f "A 9 CZ C> A C~ T M f"i 




70 


i "7Dí?l ! T h 1 C~ í i'A t"A\ / i c i ✓".( cr \ r~i Ti r~ i t Kir / < 

1 /ok» i... 1 Mti \ 0 , vj ) — \ ID ji 1 05 ) , o , BF- : L 1 NE ( 1 




2230 FOR 1=0 TO 1000: NEXT: CIRCLE < X+- 


W\& , -.í^ } K i 1 \0 u 1 -<vJ : ,b,br: L 1 NI::. ( 0 , 1 j.0 ) — ( 




3, Y+3) ,20, l:PAINT(X+3, Y+3) , 1 : GOSUB 


D cr /„ 1 "T rr \ o T". r~ _ i r K 1 r~ ! ¡"A . 'A \ i <— . cr / \ .-< \ o 




1 770 


fJr 




2240 IF MA<1 THEN CE=2 


1 "7 O t~A ! T MC / 1 jí í"< /7< \ i /7i cr .oí \ r~» t~. r~" .. i t k i r— 

l /V\Q L_ I Nt ( 1 oy , 0 ) \ Z00 , ) , 3 . Br s L I NE 




2250 RETURN 


t lúií?, o0 .) ¿jo , vio ) , ü , bF : L I NE ( w n 1 05 ) — 




2260 f COLLISION 2 


t 1 i'A -i "t* ■•*;( \ -1 **"> t~i i — _ i t Mr / n /i cr _ < \ / <",r ; 4 —r ,-1 

\ 1 0 , 1 ..0 ) „ bF : L I NE 0 ) - ( 256, 1 50 




2270 SPR I TE OFF 


\ ja t~i r~ 

^ „ b , b r 




2280 IF X ) 220ANB Y>90 THEN C2=2:PLA 


1 Q r7-l o< ti' C- cr c- c t t oa ^ \ . rni r*i t". i . r.r. tmtui i i 

1 üííMíj h Ktbt 1 ( 3®., 2 / : LULUh 1 : F h I M \\\\. 9 




Y-06L8V15CEGCEGCEG" : RETURN 






2290 GOSUB 1680 


lolsí' n ti I Un In 




2300 IF L 1 > 1 THEN L 1 =L 1 - 1 : GOSUB 760: 


1 O *t) í7í rnni m -i "7 "7 o< ^ rs r*i o i i t _ i —7 / /-< 

lo¿0 bUSUb l//0:bUSUH 760 




RETURN 1840 


1 Q~?' <~A 9 

J. O J'IíJ 




2310 IF L 1 >2THEN L 1 =L 1 - 1 : GOSUB 760: 


1 Ü4(/) X - 1 0 : Ku- ! 2 : Y- 1 l j 




RETURN 1840 


lo%jír> bUbUb dito 




2320 IF L 1 = 1 THEN L 1=0: GOSUB 760: GOT 


1 Q/.í7i p'i it c-c~>tz> t T'rr /v w \ < c .--i 
1 ooíí' r U 1 br Kl 1 t io ( X , Y ) , 1 5 , !í> 




0 1550 


1 b 7 fe) I r X . 2 0 AND Y t. 1 0 5 T H E N X = 2 ió 




2330 RETURN 


1 ü 0 l r Y > 1 ¿. 0 THE N Y - 1 2 í£í 




2340 > 


lbT0 ir THEN Y=15 




2350 ' 


ÍV00 IF- X. 2~.~¡ THEN X^^-.Zj 




2360 ? 3ER CUARTO 


1910 IF X<S THEN R0*2 5 SCREEN 2: GOTO 




2370 SCREEN 2: COLOR 15,1,1 


i t"A 1 t~A 

1060 




2380 ' 


1 Q T' i'A T CT y • . n tr a h i n y ■' -i ¡"A cr a k m v/ o T i 1 1 — k i 

1 7 ¿_ ! i) I h X , b ^> f\ N U a • . 1 0 -j H NU Y , • ^8 n H E N 




2390 GOTO2450 


V O cr 

A — OsJ 




2400 " GRAFISMÜ 


•1 O ~T t r~ v .-• 4 4 cr Aki t~\ \j ••. 4 /~.t tr* /\ k i r\ \ / ■■ — . r-. ti ir 

1 v 3 0 1 r X < 115 A N D X > 1 5 A N D y > 2 8 T H E 




2410 LINE (0, 0) - (256, 10) ,3,BF:LINE(0 


Kl V — 1 i «=" 
N A — 1 1 J 




,0)-(10, 130) ,8,BF:LINE(0, 130) -(256, 


1 ir A.lH-o HNü as. 170 AND Y<.55 TH 




135) , 8, BF: LINE (70, 10) -(80, 80) ,3,BF: 


CT k i y i /in 

tlN A -~ 1 *T O 




L I NE ( 1 1 0 , 70 ) - ( 256 , 80 ) , 8 , BF 


1 TvjW 1 r Y S jj HNÜ X .• 1 jjHND X : . 2001 HEN 




2420 LINE (245,0)~-(256, 130) ,8,BF:LI 


V ~ «=" cr 




NE ( 110, 110) - (120, 130) , 8, BF: LINE ( 190 


1 Dlíii TT v ••' ^ r'A cr AKin \ / . cr cr /\ k i r\ u v i n/i -i- 1 i 

lVá>0 ir AND t - 55 AND X -190 TH 




,5) -(220, 15) , 12, BF: LINE (240, 100} -- (2 


CKI V /- i í7< cr 

b. N X — ai. 




50, 130) , 12, BF 


lv/0 IF- X.-lujw» AND Y>68 AND Y : , 80 THE 




2430 PRESET ( 30 . 2 ) : COLOR 1 : PR I NT# 1 , " 


N Y-68 




ROOM 3" 


1VB0 IF X, 155 AND y<9^3 AND Y>80 1 HE 




2440 RETURN 


N Y — 7 o 




2450 GOSUB 2400: GOSUB 760 


ÍOO/7I f CAMTAPMAP rTP 

1770 r HN 1 Hbrlrib , ETC . 




2460 ' 


*5 /71 í7< í7< di it rnr« T TT 1 / t cr 4 4 ,-A \ -i i t*% 

^000 h U 1 br K I T E 1 , ( i-5 , 110) , 1 , 12 




2470 IF R0=1 THEN R0=3: X=205: Y=20: G 
OTO2490 


O t~A 1 i "\ ZZ>\ IT PDDTTr *9 / /l rA cr /-{ \ 4 4 4 

¿AO l k> r U I br K I i L ^ , ( 40 , 50 ) , 1 , 1 1 




^ Cá ^ f7í OI IT CDDTTr t / i CT/-< rr cr \ 4 h >~\ 




2480 IF R0=4 THEN R0=3: X=235: Y=l 15 


/y< ~r ( ~A ni it, c¡ r • C« T T r - .1 / í ~7 /7i h t~A t~< \ 4 * t*i 

4¿0 j.0 r- U r br K I TE 4 , ( 1 / 0 , 1 00 ) , 1 , 1 2 




2490 F2=80:F3=130 


T /i ( -\ ni it nnpi T TP cr / /— \ ,-4 / -< 4 4 c- \ 4 4 1 

2040 FUI SFRITE 5, (200, 1 15) , 1 , 1 1 




2500 GOSUB 810 


¿(í'jiíl FUT SFRITE 6, (210, 30 J , 1, 10 




2510 PUT SPRITE 0,(X,Y),15,0 


-1060 RUT SPFlITE 12, (2ó0,60) , 1 , 12 




2520 IF Y<10 AND X; 190 AND X<220 TH 


2070 RUT SRF'ITE 8, (80,40) , 1, 10 




EN SCREEN 2:R0=3:G0T0 1060 


4¿0O0 bübUB 3040 




2540 GOSUB 3040 


20V0 




2550 ' 


2100 




2560 ' 


*~V 4 4 ,-1 ? 
4l 1 1 0 




2570 ' FANTASMAS, ETC. 


^1^0 IF C2=l THEN RUT SPR I TE 9, (230 




2580 PUT SPRITE 17, (210, 100) ,1,14 


1 í71 í7M 1 i "y 




2590 PUT SPRITE 1 , (20, 40) , 1 , 12 


ni7 ( ;i ? • 




2600 PUT SPRITE 2 , ( 50 , 50 ) , 1 , 1 0 


^ 4 /l /"( OKI P" 1 C"» r~i T T r~* r" r*^ 1 1 T~i f—í f~¡ ' ,~i r~> r~¡ r—i t -r- r— k i 

¿.140 UN SFRITE BOSUB22a0 : SF R I T LON 




2610 PUT SPRITE 3, (30. 80) , 1 , 1 1 


2150 IF CE=1 THEN IF STRIG ( Z ) =~1TH 




2620 PUT SPRITE 4 , ( 20 , 1 1 0 ) , 1 , 1 2 


EN GOSUB 2210 




2630 PUT SPRITE 5, ( 100, 100) , 1 , S 


2160 J 




2640 PUT SPRITE 6, ( 140, 30) , 1 , 12 
_ 1 



29 



Programa 




2650 PUT SPRITE 8, «.210,40) ,1,11 
2660 IF X<15 THEN X=13 
2670 IF X>235 AND Y<100 THEN X=235 
2680 IF Y< 15 AND X< 190 THEN Y = 1 5 
2690 IF X<85 AND X>75 AND Y<85 THEN 
X=85 

2700 IF X>59 AND Y<35 AND X -75 THEN 
X=59 

2710 IF Y>60 AND Y<70 AND X > 1 1 0 THE 
N Y=60 

2720 IF Y<85 AND XM10 AND Y>70 THE 
N Y=85 

2730 IF X>100 AND X<115 AND Y! -105 T 
HEN X = 100 

2740 IF X::125 AND X>115 AND YM05 T 
HEN X=125 

2750 IF Y> 120 THEN Y- 120 

2760 IF X>220 AND Y<10 THEN Y=10 

2^70 ' FANTASMAS > SE MUEVEN 

2780 PUT SPR I TE 13,(1 40 , F2 ) . 1 5 , 1 1 

2790 PUT SPRITE 14, (155, F3) , 15, 11 

2300 PUT SPRITE 15, (175, F2) ,15,11 

2810 PUT SPRITE 16, ( 190, F3) , 15, 1 1 . 

2320 F2=F2+11 

2830 F3=F3--11 

2840 IF F2>130 THEN F2=80 

2850 IF F3<80 THEN F3«i30 

2860 IF CE=1 AND STR 1 6 ( Z ) 1 THEN 

GOSUB 2910 
2870 ON SPR I TEGOSUB2960 : SPR I TEON 
2880 IF X> 245 AND Y>100 THEN G0TQ315 
0 

2900 GOTO 2500 
2910 ' CERILLAS 

2920 C I RCLE ( X +3 , Y+3 ) , 20 , 1 1 : P A I NT ( X * 
3, Y+3) , 1 1 : MA=MA~ 1 : GOSUB 760-GOSUB24 

00 

2930 POR 1=0 TO 1000:NEXT:CIRCLE(X+ 
|V Y+3 \ .» 20 , 1 s PA I NT ( X +3 , Y+3 ) . 1 : G0SUB2 
400 

2940 IF MA<Í THEN CE=2 

2950 RETURN 

2960 ' COLLISION 1 

2970 SPRITE OFF 

2980 GOSUB 1680 

2990 IF L 1 > 1 THEN L 1 =L 1 - 1 : X=205: Y = 20 

: GOSUB 760: RETURN 2490 

3000 IF L 1 ; 2THEN L1=L1- 1 : X=205: Y = 20 

: GOSUB 760: RETURN 2490 

3010 IF L1=1THEN L 1=0: GOSUB 760: GOT 

O 1550 

3020 RETURN 

3030 t 

3040 ' VER SI TIENES MONEDAS 

3050 IF Cl=2 THEN PUT SPRITE 7, (90, 

1 65 ) , 1 1 , 1 3 

3060 IF C2=2 THEN PUT SPRITE 9,(105 
, 165) ,11, 13 



3070 IF C3=2 THEN PUT SPRITE 10,(12 
0, 165) ,11,13 

3080 IF C4 = 2 THEN PUT SER I TE 11,(13 

5, 165) , 1 1 , 13 

3100 * 

3120 ' 

3130 RETURN 

3140 ' 

3150 ' 40 CUARTO 

3160 SCREEN2 s COLOR 15,1,1 

3170 ' 

3180 GOTO 3250 
3200 ' GRAFISMO 

3210 LINE (0,0) - (256, 10) ,8,BF:LINE(0 
, 0) - (10, 130) , 3, BF: LINE ( 10, 80) - ( 150, 
90 ) , 8 , BF : L I NE ( 250 , 0 ) - ( 256 . 1 30 ) ., 8 , BF 
3220 LINE(0, 130) --(256, 135) ,S,BF:LIN 
E<5, 100) -(15, 130) , 12, BF: LINE (120, 40 
) - ( 256 , 50 ) , 8 , BF : PRESET ( 30 , 2> s COLOR 
1 :PRINT#1 , "ROOM 4" 
3230 ' 
3240 RETURN 

3250 GOSUB 3200 : GOSUB 760 
3260 ' 
3270 ! 
3280 ' 

3290 F3=255:R0=4: X=15:Y=115 
3300 GOSUB 810 

33 1 0 PUT SPR I TE 0 , ( X , Y ) , 15, 0 

3320 IF X< 10 AND YM00 THEN R0=4:SC 

REEN 2: GOTO 2450 

3330 * LIMITES 

3340 IF X<15 AND Y<100 THEN X=15 
3350 IF X>240 THEN X=240 
3360 IF Y!: 115 THEN Y=115 
3370 IF Y<15 THEN Y=15 
3380 IF X > 1 1 5 AND Y > 28 AND Y < 40 THEN 
Y=28 

3390 IF X>115 AND Y<55 AND Y>40 THE 
NY=55 

3400 IF X<155 AND Y>68 AND Y<80 THE 
N Y=68 

3410 IF X<155 AND Y<95 AND Y>80 THE 

N Y=95 

3420 > FANT. 

3430 PUT SPRITE1, (50,20) , 1, 14 
3440 PUT SPR ITE2, (60,40) , 1, 11 
3450 PUT SPRITE3, (35,45) , 1, 10 
3460 PUT SPRITE4, (50, 70) ,1,12 
3470 PUT SPR I TES, (30,60) , 1, 14 
3430 PUT SPRITE6, (130, 12) , 1 , 10 
3410 PUT SPR I TE 19, (160.30) , 1, 14 
3500 PUT SPR I TE 1 2 , ( 235 , 60 ) , 1 , 1 1 
3510 PUT SPR I TE 13, (190, 100) , 1, 14 
3520 PUT SPRITE14, (153,95) , 1, 11 
3530 PUT SPR I TE 1 5 , (1 00 , 1 20 ) , 1 , 3 
3540 PUT SPR I TE 16, (50, 100) . 1,8 
3550 GOSUB 3040 
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356.0 PUT SPRITE 1 7 , ( F3 , 80 ) , 1 5 , 1 1 

3570 IF Y<95 THEN F3=F3~17 

3580 IF F3<150THEN F3=245 

3590 PUT SPRITE 18, ( 170, 100) , 1 , 10 

3600 " 

3610 ' 

3620 ON SPRITE GOSUB3760: SPRITEON 
3630 IF CE- 1 ANDSTRI G ( Z ) =■-■• 1 THEN G03U 
I 3710 

3640 IF C3=t THEN PUT SPRITE 10, (20, 

20) ,1,13 

3700 GOTO 3300 

3710 ' CERILLAS 

3720 CIRCLE ( X +3, Y+3) , 20, 1 1 : RA I NT ( X + 
3 , Y+3 ) , 1 1 : MA=MA~ 1 : GOSUB 760 : G0SUB32 

00 x 

3730 POR 1=0 TO 1000: NEXT: CIRCLE < X+ 
3 1 Y+3 ) , 20 , 1 : RA I NT ( X+3 , Y+3 ) , 1 : GOSUB -3 

200 

3740 IF MA<1 THEN CE=2 
3750 RETURN 
3760 ? CGLLISIÜN 4 
3770 SPRITE OFF 

3780 IF X<35 AND Y<35 THEN C3=2:PLA 
Y"V15L806CEGCEGCEG" : .RETURN 
3790 GOSUB 1680 

3800 IF L 1 > 1 THEN L1=L1- 1 í X=205: Y=20 

: GOSUB 760: RETURN 3290 

3810 IF Ll >2THEN L 1 =L 1 -■ 1 : X = 205 : Y --20 

: GOSUB 760: RETURN 3290 

3820 IF L 1 = 1 THEN L 1=0 ¡GOSUB 760: GOT 

O 1550 

3830 RETURN 

3840 * 

3850 * 

3860 ' 50 QUARTO 

3870 CLOSE : 5 CREEN 2 : COLOR 15,1,1:0 

PEN"GRP: "AS#1 

3880 ? . 

3890 GOTO3950 

3900 ' GRAFISMO 

3910 LIME (0,0) -(256, 10) ,S,BF:LINE(0 
, 0 ) - < 1 0 , 1 30 ) , 8 , BF : L I NE (0,1 30 ) - ( 256 , 
135) ,8,BF:LINE(245,0)--(256, 130) ,8,B 
F 

3920 L I NE ( 60 , 70 ) - ( 225 , 80 ) , 8 , BF i L I NE 
( 1 40 . 70 ) - ( 1 50 , 1 30 ) , 8 , BF : L I NE ( 240 . 20 
) - (250,50) , 12,BF:LI.NE(110, 125) -(140 
, 135) , 12, BF 

3930 PRESET (30,2): COLOR í : PR I NT# 1 , " 
ROOM 5" 
3940 RETURN 

3950 GOSUB 3900: GOSUB 760 
3960 ' 

3970 IF R0=1 THEN R0=5: X=125: Y=l 15: 
GOTO 3990 

3980 IF R0=6 THEN R0=5: X=235: Y=35 
3990 ' 

4010 A1=10:A2=60 
4020 GOSUB 810 



4030 PUT SPRITE 0,(X,Y),15,0 

4040 IF X>100 AND Y>127 AND X< 140 T 

HEN SCREEN 2:R0=5:G0T0 Í060 

4050 GOSUB 3040 

4060 ' FANT. 

4070 PUT SPRITE 1 , ( 100, 120) , 1 , 10 

4080 PUT SPRITE 2 , ( 1 20 , 1 00 ) , 1 , 8 

4090 PUT SPRITE 3, (70, 90) , 1 , 8 

4100 PUT SPRITE 4, (50,70) . 1, 14 

4110 PUT SPRITE 5, (20,80) , 1, 10 

4120 PUT SPRITE 6, (35, 50) , 1 , 1 1 

4 1 30 PUT SPR I TE 12,(1 00 , 40 ) , 1 , 1 0 

4140 PUT SPRITE 1 3 , ( 1 20 , 20 ) , 1 , 8 

4150 PUT SPRITE 14, ( 140, 60) , 1 , 10 

4160 PUT SPRITE 15, ( 160, Al ), 12, 12 

4170 RUT SPR I TE 1 6 , ( 200 , A 1 ) , 12, 1.2 

4180 PUT SPRITE 1 7 , ( 1 75 , A2 ) , 1 2 , 1 2 

4190 RUT SPRITE 18, (215, A2) , 12, 12 

4200 A1=A1+10: A2=A2-10 

4210 IF Al >60 THEN Al =10 

4220 IF A2<10 THEN A 2-60 

4230 ' LIMITES 

4240 IF X<15 THEN X = 15 

4250 IF X> 240 THEN X=240 

4260 IF X>235 AND Y >20 AND Y<50 TH 

EN GOTO 4550 

4270 IF Y>130 THEN Y=130 

4280 IF Y< 15 THEN Y=15 

4290 ' 

4300 ? 

4310 IF STR I G ( Z ) =- 1 THEN GOSUB4400 
4320 ON SPRITE GOSUB4450: SPRITEON 
4330 IF X>60 AND X<220 AND Y>58 AND 

Y<70 THEN Y=53 
4340 IF X>60 AND X<220 AND Y<85 AND 

Y>70 THEN Y=85 
4350 IF X>130 AND Y>70 AND X< 143 TH 
EN X=130 

4360 IF X< 155 AND Y>70 AND X>144 TH 

EN X=155 

4390 GOTO 4020 

4400 ' CERILLAS 5 

4410 C I RCLE ( X + 3 , Y + 3 ) , 20 ,11: PAINT ( X + 
3, Y+3) ,11: MA=MA-1 : GOSUB 760: G0SUB39 
00 

4420 POP 1=0 TO 1000: NEXT: CIRCLE (X+ 
3, Y+3) ,20, 1 : PAINT (X+3, Y+3) , 1 : G0SUB3 
900 

4430 IF MA< 1 THEN CE=2 

4440 RETURN 

4450 ' COLLISION 5 

4460 SPRITE OFF 

4470 GOSUB 1680 

4430 IF L 1 > 1 THEN L 1 =L 1 - 1 : X= 1 25 : Y= 1 2 

0 : GOSUB 760 : RETURN 40 1 0 

4490 IF L 1 >2THEN L 1 =L 1 - 1 : X= 1 25 : Y= 1 2 

0: GOSUB 760: RETURN 4010 

4500 IF L 1 = 1 THEN L 1=0: GOSUB 760: GOT 

O 1 550 ' 

4510 RETURN 



— 
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«Stf l» C(ASC'"ID 











4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 



' 6o CUARTO 

SCREEN 2: COLOR 15. 1, 1 

CLOSE:OPEN"GRP: "AS#1 

GOTO 4660 
' GRAFISMO 



BF : L I NE ( 0 
30) - (256, 
, 130) ,8,1 

LINE<0,80)-(210,90) ,8,BF:LINE( 

(15,50) , 12. BF 
PRESET ( 30 , 2 ) : COLOR 1 : PR I NT# 1 , " 
6" 

RETURN 

GOSUB 4600: GOSUB 760 
k 

X=15: Y=35 
GOSUB 810 

PUT SPR I TE 0 , ( X , Y ) , 1 5 , 0 
IF X<10 AND Y<50 THEN R0=6:SCR 
:GOTO 3950 

IF X>230 THEN X«230 
IF X<15 AND Y>50 THEN X = 15 
Y>1 15 THEN Y=115 
Y>65 AND X<215 AND 



IF 
IF 



x<: 



LINE<0,0)-(10, 130) ,8, 
, 0>--(256, 10) ,8,BF:LINE(0, 1 
135) ,8,BF:LINE(245,0)-(256 
F 

4620 
5,20) 
4630 
ROOM 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
EEN 2 
4730 
4740 
4750 
4760 
N Y=65 
4770 IF 
N y«96 

4780 IF Y<15 THEN Y=15 
4790 ' FANTASMAS ETC. 
4800 PUTSPRITE 1 
4810 PUTSPRITE 2 
4820 PUTSPRITE 
4830 PUTSPRI 
4840 PUTSPRITE 5 
4850 PUTSPRITE 6 
4860 PUTSPRITE 8 
4870 PUTSPRI TE 12 
4880 PUTSPRI TE 13 
4890 PUTSPRI TE 14 
4900 PUTSPRI TE 15 
4910 PUTSPRI TE 16 
4920 PUTSPRI TE 17 
4930 PUTSPRI TE 18 
4940 PUTSPRI TE 19 
4950 PUTSPRI TE20 
4960 GOSUB 3040 
4970 IF C4=l THEN PUT SPRI 
70 ) , 1 , 1 3 

4980 IF CE=1 AND STRIG < Z) =- 
UB5010 



:15 AND 



Y ■'. 30 THE 
Y<96 AND Y >S0 THE 



(10, 50) 
(25, 50) 
(40, 40) 
(35, 70) 
(55, 55) 
(70, 50) 
(190,70) , 
( 120, 20) , 
(150, 40) , 
(30, 110), 
(90, 100) , 
(150, 110) 
(190, 100) 
(210, 120) 
( 180, 30) , 
(130,40) , 



,10 
, 1 1 
, 12 
í 14 
,8 
,11 
1, 14 
1 , 12 
1,11 

1,3 
1,14 
,1,12 
,1,11 
, 1 , 10 
1, 10 
1 , 1 0 

TE 1 1 , < 10, 
1THEN GOS 



4990 ON SPRI TE GOSUB 5060 sSPRITEON 
5000 GOTO 4700 
5010 ' CERILLAS 5 

5020 CIRCLE(X+3, Y+3) , 20, 1 1 : PAINT <X+ 
3 , Y+3 ) , 1 1 : MA=MA~ 1 : GOSUB 760 : G0SUB46 

00 

5030 FOR 1=0 TO 1000:NEXT:CIRCLE(X+ 
3, Y+3) ,20, 1 : PAINT (X+3, Y+3) , 1 : G0SUB4 
600 

5040 IF MA< 1 THEN CE=2 
5050 RETURN 
5060 ' COLLISIOM 5 
5070 SPRI TE QFF 

5080 IF X<25AND Y<85 AND Y>60 THEN 
C4=2: PLAY"V15LSCEGCEGCE:GCEG" : RETURN 
5090 GOSUB 1680 

5100 IF L 1 > 1 THEN L1=L1-1 : GOSUB 760: 
RETURN 4660 

5110 IF Ll : 2THEN L 1 =L 1 - 1 : GOSUB 760: 
RETURN 4660 

5120 IF L 1 - 1 THEN L 1=0: GOSUB 760: GOT 
O 1 550 
5130 RETURN 

5200 ' FINAL CON LAS 4 MON. 
5210 COLOR 15: SCREEN 0: LOCATE0, 5: PR 
INT"LO HAS CONSEGUIDO EN EL GRADO " 
; G : PR I NT : PR I NT " T I ENES " ; L 1 ; "VI DA ( S ) 
Y TE SOBRAN " ; MA; " CERILLA (S) 

ll 

5230 PR I NT : PR I NT : PR I NT : PR I NT : PR I NT " 
APRIETA 'O' PARA INTENTARLO EN UN 

GRADO DE DIFICULTAD MAS ALTO" 
5240 PR I NT : PR I NT :PRI NT "APRIETA > EX- 
TERMINAR " 
INPUT A* 

IF A*="0"OR A*="o"THEN RUN 163 



PARA 
5250 
5260 
& 



5270 IF . A*="E"ÜR A*="e"THEN GOTO 54 
30 

5280 I F A*< > " E " OR A*< > " e " OR A*< > " o " 
OR A*O"0"THEN CLS:GQTO 5230 
5290 GOTO 5290 

5300 - ELEGIR GRADO DE DIFICULTAT 
5310 CLS:PRINT:PRINT:PRINT"QUE GRAD 
O DE DIFICULTAD ELIGES ?" 
5320 PR I NT :PRI NT "NOTA: SEGUN QUE GR A 
DO VARIA EL NUMERO DE CERILLAS 

Y EL NUMERO DE VIDAS" 



5330 PR I NT : PR I NT : I NPUT " PAC I L 
DIFICIL"; G 
5340 IF G=l THEN 
5350 IF G=2 THEN 
5360 IF G=3 THEN 
5370 IF G=4 THEN 
5380 IF G=5 THEN 
5390 IF G=6 THEN 
5400 IF G=7 THEN 



( 1--7) 



L1=3:MA=90 
L1=3:MA=50 
1.1=3: MA=20 
Ll=2: MA=20 
Ll=2: MA=10 
Ll=l : HA* 10 
Ll=l : MA=5 
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5410 IF G>7 0RG<1THEN PLAY" v 1 5o U 3c 
d " : GOTO 5300 
5420 RETURN 

5430 ' auto destrucción ? 

v-'440 CLS : EiEEF: COLOR 15» t , 1 8 SCREEN 0 

: LOC ATES , 5 : PR I NT " ME AUTO ' DESTRUYO < 




S/N) " : INPUT A* 

5450 IF A*="N"OR A$~ " n " TREN CLS : END 
5460 GOSUB 1680: FORI=0TO1000: NEXT: C 
LS: L0CATE14, 5: PRI NT "ADIOS" 
5470 FORI=0TO 2000: NEXT: CLS: NEW 
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Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 

BASES 

1. ° Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. ° Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. ° No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. ° Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 



PREMIOS 

5. " MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. ° MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 

FALLO Y 
JURADO 

7. ° El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. ° Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
10.° El plazo finalizará el 
30 de junio de 1987. 
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LAS BUENAS COMPAÑIAS 
DEUNMSX 

PROFESIONAL 





A MITSUBISHI 
COMPUTER SYSTEM 



ML-FX1/2 □ 

El MSX profesional 

80 Kb RAM. 

Teclado Numérico. 

ML-FX2 Programa MAP (B. Datos/ 

P. Textos / H. Cálculo Gráficos/ 

Comunicaciones. 

ML-30 FD □ 

La Máxima capacidad en disco. 
1 Mb. (720 Kb. Formateado) 
8 Formatos diferentes 
Chasis previsto para 2 unidades. 



ML-10 DR □ 

Cassette especial para ordenador. 
Admite 1200/2400 baud. 
Cuentavueltas. Señal de monitor. 
Alimentación a red o baterías. 

ML-10 MA □ 

Ratón para diseño gráfico. 
Programa CHEESE de diseño. 
24 Funciones gráficas. 



APLICACIONES □ 

Un Software profesional para un 
ordenador profesional. Contabili- 
dad, Control de Stock, Factura- 
ción. 

CT-1501 E □ 

Monitor/Televisión. 
Alta definición. 
Conector SCART. 
Mando a distancia. 



3< 



CUPON DE RESPUESTA 



Desearía poder tener más 
información sobre los aparatos 
marcados H de MITSUBISHI. 

Sr.: 



Domicilio: . 



Población: 

MABEL, S.A. 

P° Maragall, 120 - 08027 BARCELONA 



LO MEJOR EIM MSX 




VISITE LA DIVISION @?§) 



